



LISTE DES L06ICIELS DISPONIBLES POUR PC 1500 


SOFT CALC 
S0FT6RAPH 
SOFT STAT 
SOFT TEXT 
SOFT DRAW 
SOFT FONCTION 
SOFT EXTEND 
SOFT IIONITOR 
SOFT SYSTEM 
SOFT HMD 
SOFT GAHt f 
SOFT 6AHE 2 


tableur professionnel avec graphiques 

graphiques de gestions et scientifiques 

traitement statistique des données avec graphiques 

traitement de textes sur CE 150 èt imprimante parallèle 

représentation graphique en trois dimensions 

tracé de courbes et de surfaces 

extension de 70 fonctions au BASIC 

moni teur-désassembleur en mnémoniques officielles 

gestion (Ame partie de la RAM en disquette (RAM-DISK) 

3 jeux utilisant les principes de l'intelligence artificielle 
6 jeux video en langage machine 

4 jeux video en langage machine 


BIENTOT POUR VOTRE PC 1350 

FREE CALC 

: tableur professionnel (feuillle de calcul ) 

FREE TEXT 

: traitement de textes sur CE 126 et imprimante série 

FREE STAT 

: traitement statistique des données 

FREE 6RAPH 

: graphiques de gestion et scientifiques (sur CE £15 P) 

FREE BASE 

: gestion de fichiers avec possibilité de calcul . 

GAME I 

: jeux video 

6AME 2 

: jeux video 

GAME 3 

: jeux de dés et de cartes 

6AME 4 

: jeux de reflexion 

GAME S 

: jeux utilisant les principes de l'intelligence artificielle 


Tous nos logiciels sont livrés sur 
cassette AUDIO . avec une notice 
explicative détaillée . 

Ils sont disponibles chez votre 
revendeur SHARP . au club des 
SHARPENTIERS et par 
correspondance . 


Pour plus de RENSEIGNEMENTS 
contactez chez AP SOFT : 

Mr Pascal ABR1YARD 

AP SOFT 

1 bis rue du printemps 
78230 Le PECQ 
tel.: (16) 976 83 74 


AP SOFT se reserve le droit de 
faire toute modification sur les 
caractéristiques annoncées et 
cela sans préavis. 


Vous pouvez également vous procurer les logiciels de la Société A.P. SOFT auprès 
du CLUB DES SHARPENTIERS aux tarifs ci-dessus (port compris). 




Fournitures 
Mobilier, materiel de 
Bureau 


REF. DESIGNATION 

ORDINATEURS 

MZ -720 ORDINATEUR 64 Ko 

PC -1245 ORDINATEUR 2, 2K IL. 16C 

ORDINATEUR 4,2K 1L.24C 
ORDINATEUR 4,2K 1L.16C 
ORDINATEUR 4, K 1L.16C 
PC -1500A ORDINATEUR 8, 5K 1L.26C 

PC -1260 ORDINATEUR 4,2K 2L.24C 

ORDINATEUR 10 K 2L.24C 
ORDINATEUR 5K 4L.24C 


CE -515P IMPRIMANTE G. 4C 80C 
CE -51 6L CABLE DE LIAISON 

LES EXTENSIONS ET OPTIONS PC 1500A 


CE -152 
CE -153 
CE -155 
CE -158 
EA -158 
CE -159 
CE -161 


MAGNETOPHONE MICRO CAS 
CLAVIER SENSITIF 
EXTENSION RAM B K 
INTERFACE RS 232C/CENT 
CABLE (PARALLELE CENT.) 
EXTENSION RAM 8 K P. 
EXTENSION RAM 16 K P. 


PC -1251 
PC -1401 
PC -1421 


PC -1261 
PC -1350 


LES EXTENSIONS ET OPTIONS PC 1500A 


IMPRIMANTES / LES INTERFACES 


CE -152 
CE -153 
CE -155 
CE -158 


CE -159 
CE -161 


MAGNETOPHONE MICRO CAS 
CLAVIER SENSITIF 
EXTENSION RAM 8K 
INTERFACE RS 232C/CENT 
EA -158C CABLE (PARALLELE CENT.) 
EXTENSION RAM 8K P. 
EXTENSION RAM 16 K P. 


MINI-1P01 

INTERFACE IMPRIMANTE 

LES EXTENSIONS MZ 720 

I.T. 

IMPRIMANTE HR5 

MZ -1D05 

ECRAN COULEUR 

I.N. 

IMPRIMANTE Ml 009 

MA 1X03 

MANETTE DE JEUX 

LES INTERFACES 

SFD 

SIMPLE LECTEUR DISQUETTES 

CE -124 

INTERFACE CASSETTE 

DFD 

DOUBLE LECTEUR 


245/251/401/421/260/261 

C80 

CARTE 80 COLONNES 

CE 126P 

IMPRIMANTE INT. CAS. 

CPM 2.2 

DISQUETTE PLUS MANUEL 


245/251/401/421/260/261 

I.C. 

INTERFACE CENTRO 

CE -125 

MAGNETOPHONE M.C.I. 

LES FOURNITURES 


1245/1251/1260/1261 

R. 700 

ROULEAUX TUBE DE 6 

CE -150 

IMPRIMANTE INT. CAS. 

850C.B 

CRAYON LES 4C OU 4N 

LES EXTENSIONS ET OPTIONS PC 1350 

D.DF.DD 

DISQUETTE 5"PAR 10 

CE -201 M 

EXTENSION RAM 8K P. 

D.DF.DD 

DISQUETTE 5"PAR 100 

CE -202M 

EXTENSION RAM 16K P. 

D.N 

DISQUETTES NETTOYAGE 
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EDITO 3 

NOUVEAUTES 4/5 

LE MANUEL LM 1251-1500 6 

CONCOURS INTERNATIONAL D'OTHELLO 7 
APPLICATION PROFESSIONNELLE 
PC 1251-1253 10 




PC 1500 


INTERFACE MINITEL 12 

LES CODES CACHES DU LH-5801 15 

PROGRAMME MONITEUR 17 

INVERSION VIDEO PARTIELLE 

ET APPLICATIONS 20 

DETOURNEMENT DU CLAVIER 21 

LIGNE BASIC EN ZONE RESERVE ....... 22 

LES INCONNUES DU MODE RESERVE . . . Ù 
LANGAGE MACHINE 4* PARTIE 24 

PC 1251 ; ^ 

RENUMBER V1.0 

POUR LES PC 1245-1250-1251-1255 .... 25 

DISP .31 

METTEZ VOS BOUCLES AU PAS 33 

JEU DE SIM A 8 POINTS 34 

PC 1211 ” 

PROGRAMME DE NAVIGATION 
ASTRONOMIQUE 35 

PC 1350 

PROGRAMME 

JACK POT 39 


PROGRAMME 

JACK POT 39 



MZ 700 


K-BASIC V.5 40 

ASTUCES 41 

PROGRAMME 

FISH 42 

PROGRAMMATION STRUCTUREE 43 

LM SUR MZ 45 

_____ 

PROGRAMME 

X RAY 47 

BASIC SB-6510+ + 48 

LA LOGITHEQUE 49 

DEVENEZ SHARPENTIER 52 


Tradition oblige, le nouvefan, période faste en promesses et bonnes résolutions, nous con- 
duit tout naturellement à vouslaire part des nôties. • • 

Côté promesse*s : vous recevrez, en 1985, 8 numéros*du SHARPENTER dont 1 numéro 
«SPECIAL VACANCES -SPECIAL PROGRAMMES», . * * % 

Nous nous efforcerons® également de raccourcir le délai de réponse au courrier qui est actuel- 
lement dans 4a grande majorité des cas, inférieur à* 1 5 jours. 

Côté bonnes résolutions : nous vous soumettrons dansle N° 1 1, un questionnaire/sondage 
qui, après analyse, nous permettra de mieux connaître votre* appréciation sur les services 
que nous vous proposons, et de mieux faire "coller" le contenu de nos futurs btilletîns ainsi- 
que l'ensemble de nos activités à vos aspirations et à vos souhaits. 

Puisque nous parlons résolution^ admirez celle de l'imprimanteSHARP 10 7Q0 qui a créé 
les dessins’de notre couverture : 1024 points par ligne, en 8 couleurs, (la couleur, c'est 
pour bientôt dans le SHARPENTIER). Connectée au "petit dernier" de SHARP : L'OA 8100 
qui n'a de petit que le nom. Jugez-ert plutôt : 4 méga octets de RAM, 270 M.û. sur disque 
dur, microprocesseur 68 000, et capable d'effectuer 32 tâches simultanées... Ne rêvons 
pas, ... à nos micros... et à bientôt. : 

-h r» nn/Mnnr 



REDACTEUR EN CHEF 
S. BIZOIRRE 

REDACTEUR EN CHEF ADJOINT 
L BURELLIER 
PUBLICITE 

S. BIZOIRRE/834.93.44 


ONT PARTICIPE A CE NUMERO 

P. ABRIVARD B. EDOUARD B. KOKANOSKI V. OSTROMOURHAON 

A. BERMOND N. GILLES W. KOMBAR M. STERMANN 

C. CAMUS M.GIRONDOT J.F. LENTE J.F. VIGNAUD 

S. CHAGNOUX J.P. GLUCK M. LOUTTER G. VINCENT 

V. CREUX P. HENRY G. NICOLAS 


LA REVUE DES SHARPENTIERS 


tfNflS 6 ® 0 

L'annonce d'un nouveau produit créé par 
SHARP finit par ne plus nous étonner, serions- 
nous blasés ? 

Il est vrai que tous les SICOB'S apportent leurs 
pesant de PC, toujours plus puissants et tou- 
jours plus petits. Moins souvent, mais tout aussi 
spectaculairement, l'on voit surgir un MZ et par- 
fois même si l'on sait bien ouvrir les yeux, un 
OA. Les PC ont tous des microprocesseurs 8 
bits CMOS spécifiques SHARP sauf dans le 
SPC-5000 ou le 1-8088 sert à la compatibilité 
IBM, mais vous le trouverez comme esclave d'un 
8 bits hyper-puissant qui adresse plus d'un Méga 
octet de mémoire. 

Les OA reposent sur le MC-68000, le fameux 
16/32 bits de Motorola, et tournent sous le 
système d'exploitation multipostes multi- 
utilisateurs multitâches Unix. Ce dernier a tou- 
tes les chances de devenir le système d'exploi- 
tation standard des années 85 à 90 du fait de 
la simplicité et l'homogénéité de sa conception. 
Le SPC-5000 dispose aussi d'une des formes 
d'Unix : VENIX qui fonctionne avec disquettes 
et est à l'étude au Japon sur ROM 512 KO. Tout 
cela ne nous étonne même plus ! 

Pourtant, le nouveau MZ-5600 devrait bien rete- 
nir votre attention pour plusieurs raisons : un vrai 
processeur 16 bits intei-8086, associé à sa bat- 
terue de coprocesseurs, le 8087 (en option) : 
processeur arithmétiques, le 8288 contrôleur de 
bus et les PICS gérant les priorités d'interrup- 
tions ; 256 à 51 2 Koctets de mémoire centrale 
plus 96 à 1932 Koctets de mémoire graphique 
(3 ou 6 pages de 640 x 400 points) ; un PIO pro- 
grammable : le 8255 qui a pour tâche de gérer 
l'interface parallèle CENTRONICS en sortie, et 
le processeur CMOS du clavier en entrée ; un 
S 10 : le Z80-SIO qui gère un port série 
synchrone ou assynchrone et un second unique- 
ment assynchrone ; la mémoire graphique est 
adressée directement par le processeur 8086 en 
mots de 16 bits, et partagée entre ce dernier 
et, d'une part le processeur graphique 7220, et 
d'autre part, par 2 processeurs programmables 
exclusivement dédiés à la gestion des fenêtra- 
ges à l'écran et des priorités de couleurs, et dis- 
posant de leur propre mémoire CMOS ; une hor- 
loge date/heure disposant d'une d'accus au 
NIC.D ainsi que d'un générateur de son, qui, non 
content de vocaliser sur 8 octaves / 3 voies, 
peut gérer le multiplexage de bancs de mémoire 
de 1 28ko à 1 Mo inutilisé à l'heure actuelle, mais 


I 


Tous ces avantages matériels ne seraient rien 
si le système d'exploitation ne savait en faire 
le meilleur usage. 

EOS 16 (European, Operating System 16 bits), 
est un système dont la structure en couche est 
très largement inspirée d'UNIX, et écrit en lan- 
gage C. C'est un système multitâche disposant 
de dix terminaux virtuels dont deux sont visua- 
lisables à l'écran simultanément compatibles à 
100% avec les concurrents CP/M, CPM-86 et 
grâce au filtre, compatible MS-DOS 1 .4 et 2.0 
et même, si l'on dispose de la carte Z-80, com- 
patible EOS V3 (8 bits) et CP/M-80. « Com- 
ment », me direz-vous, cela peut-il fonctionner ? 

- « Oh, bien, le plus simplement du monde ! » 

- vous répondrai-je, « Il n'y a même pas à faire 
attention ». 

EOS reconnaît tout seul que tel ou tel fichier est 
au format MS-DOS ou CP/M et le traite en con- 
séquence. Moralité, vous pouvez lancer un mul- 
tiplan sous CP/M80 un WORDSTAR sous MS- 
DOS et une DBASE II sous CP/M 86 simultané- 
ment, et les copier sur la même disquette ou dis- 
que dur (eh, oui I) sans vous poser la moindre 
question. 



Utilisant des disquettes double face, double den- 
sité, plusieurs formats sont possibles : en 80 pis- 
tes : 640 Ko (compatibilité IBM PC oblige), et 
800 Ko (compatibilité MZ-35/3), en 40 pistes : 
le 320 Ko (SPC-5000 et IBM-PC). Le langage 
de programmation est le C de DESMET, qui per- 
met la programmation « ciselée » à tous les 
niveaux et une portabilité comme jamais il n'y 
en a eu : depuis les 8 bits jusqu'aux grands minis 
sous UNIX. Un grand nombre d'appels système 
sont disponibles pour le contrôle des processus, 
(ou tâche) ainsi que les lectures/écritures dis- 
que et disquettes. 

Le système EOS 16 dispose d'un interpréteur 
de commandes : le SHELL qui est presque aussi 
puissant que celui d'UNIX. 

Redirection des entrées/sorties, « pipes » ou 
« tubes », /Dev le répertoire des périphériques, 
mount, un mount, etc. sont présents. Gageons, 
que très rapidement, un grand nombre de per- 
sonnes développeront des utilitaires pur cette 
machine. 

Rendez-vous pour plus d'informations dans le 
prochain numéro. 

Bernard EDOUARD 




Mettez côte à côte, un scientifique et un 
homme d'affaires, faites de même avec un 
PC- 1401 et un PC- 1421. Entre les deux hom- 
mes, très peu de différence, rien ne ressem- 
ble plus à un homo sapiens qu'un autre homo 
sapiens ; idem pour nos deux PC. Même taille, 
même afficheur, même disposition des tou- 
ches. La tête de nos deux hommes est bour- 
rée de chiffres, mais chacun les manipule à sa 
manière : l'un pense factorielle, hypoténeuse, 
réciproque, l'autre investissement, statistiques, 
rentabilité. Le PC-1401, après plusieurs mois 



m 


de carrière est maintenant universellement 
reconnu comme étant l'outil indispensable, de 
notre scientifique. Notre homme d'affaires aura 
maintenant à sa disposition un outil tout aussi 
puissant spécialisé dans les études financières, 
grâce à ses fonctions pré-programmées, éga- 
lement utilisables en BASIC, le PC-1 421 , peut 
calculer immédiatement, le cours d'une mon- 
naie, un taux d'intérêts composés, un amor- 
tissement une marge bénéficiaire, effectuer des 
calculs prévisionnels, faire des statistiques, bref 
tous les calculs financiers utiles à notre ban- 
quier ou chef d'entreprise. Outre ses fonctions 
scientifiques, le PC-1421 possède la même 
taille mémoire que le PC-1401 (3,5 Kg), et le 
même BASIC. Rappelons que toutes les fonc- 
tions financières et statistiques pré- 
programmées peuvent être intégrées dans un 
programme BASIC. 



-QUICK DISC- 



DISQUETTES 
5 POUCES 

Cette unité de disquettes, décrite dans notre 
N° 9 de septembre 84, existe maintenant en 
double unité ; logées dans un même boîtier per- 
mettant la recopie directe d'une disquette sur 
une autre et facilitent la gestion de fichiers 
importants (560 K formatés disponibles). 
Elles sont en outre parfaitement adaptées au 
fonctionnement du MZ-700 sous système 
d'explotation C-PM*. 


Votre consommation de café devient vraiment 
très importante lorsque vous attendez le char- 
gement de vos programmes, votre gentil frère 
a enregistré sa musique préférée sur votre der- 
nière cassette de programmes... Rassurez vous 
tout cela appartient maintenant au passé, le 
QUICK DISC est arrivé. Qu'est-ce que le QUICK 
DISC ? - C'est une unité de disquettes 2,8 pou- 
ces qui se loge en lieu et place de votre magné- 
tophone et qui fait rigoureusement la même 
chose... 60 fois plus vite. Le chargement du 
BASIC se fait en 3,5 secondes (un rêve I), et 
l'accès à un programme quelconque prend 8 
secondes maximum. Les disquettes utilisées 
ont une capacité de 64 K formatés (utilisables), 
par face, donc 128 K en tout. Vous pourrez 
enregistrer, lire, effacer vos programmes, lis- 
ter le catalogue des programmes, ou fichiers 
contenus sur votre disquette ou transférer vos 
programmes de la cassette vers la disquette le 
magnétophone conservant son entière 
autonomie. 



Le grand frère du PC-1401. Un air de famille 
indéniable : même présentation sauf un petit 
liseré rouge au dessus de l'afficheur, même 
basic, mêmes fonctions scientifiques, même 
disposition des touches. La différence ? 6,5 
ko ; puisque le PC-1 402 dispose maintenant 
de 1 0 Ko de mémoire, vive disponible aux pro- 
grammes de l'utilisateur, de quoi combler les 
plus exigeants. 

Nota : 

Le PC-1401, ne peut pas bénéficier de cette 
mémoire additionnelle). 


FENETRE 

TEMOIN DE CONTROLE LOGEMENT 



CARTE 80 COLONNES 


Cette carte se connecte sur le BUS de votre 
MZ et permet l'affichage de 2000 caractères 
(80 x 25) sur un moniteur vidéo noir et blanc. 
Le connecteur du MZ étant monopoliséà par 
cette carte, une seconde sortie est prévue pour 
la connection éventuelle de disquettes 5 pou- 
ces, l'ensemble CARTE 80 COLONNES + DIS- 
QUETTES 5 POUCES + MONITEUR NOIR ET 
BLANC rend votre MZ 700 compatible à 1 00% 
avec le système d'exploitation C-PM * et à sa 
vaste bibliothèque de logiciels. 

* C-PM est une marque déposée par DIGITAL 
RESEARCH. 





DANS VOTRE BIBLIOTHEQUE... 






CONCOURS INTERNATIONAL 
D'OTHELLO L'O.I./SICOB 84 



Après nos victoires au TOURNOI INTERNATIONAL, en exclusivité 
pour les SHARPENTIERS, nous vous proposons l'explication 
détaillée de nos deux programmes. Ces renseignements, nous 
l'espérons, permettront aux néophytes de prendre goût aux 
jeux de réflexion, et offriront peut-être aux plus expérimentés 
d'entre vous une nouvelle approche de ce jeu ; et pourquoi, par 
la même occasion, ne pas appliquer ces explications a la pro- 
grammation du jeu de dames, objet du grand concours du club. 
1 semaine au Japon... Ça en vaut la peine II. 


Tout programme de jeu de réflexion, com- 
porte deux parties principales distinctes : la 
première est le « générateur de coups » con- 
sistant, comme son nom l'indique, à géné- 
rer et simuler tous les coups possibles que 
peut jouer l'ordinateur. La deuxième grande 


1ERE PHASE : 

LA GENERATION DES COUPS 

Cette étude de tous les coups jouables a été 
jusqu'alors, la principale méthode utilisée par 
les programmes OTHELLO BASIC. Cependant, 
évaluer les 6 ou 7 coupes immédiatement joua- 
bles par l'ordinateur ne prend en langage 
machine que quelques centièmes de secondes, 
(l'ordinateur dispose en concours, d'une heure 
pour jouer sa partie !). Ainsi a-t-on pu penser 
qu'une recherche plus approfondie pouvait être 
effectuée. A chaque coup jouable par l'ordina- 


phase, « l'évaluation » permettra de classer 
par ordre de valeur l'ensemble des coups 
jouables, afin que l'ordinateur puisse jouer 
celui qui lui parait le meilleur : Etudions suc- 
cessivement les deux phases du pro- 
gramme. 


teur, on pourrait envisager toutes les parades 
possibles de l'adversaire, puis de même, à cha- 
cune de ces parades chercher toutes les ripos- 
tes offertes à l'ordinateur, et ainsi de suite.. 

Cette recherche en profondeur, « à plusieurs 
demi-coups », permet de prévoir les différen- 
tes évolutions de la partie dans un avenir plus 
ou moins éloigné. 

Ainsi forme-t-on ce que l'on appelle un « arbre 
de recherche ». VOIR SCHEMAS. 

Cependant, l'évaluation ne donne les notes 


qu'aux différents coups du bout de l'arbre ; il 
s'agit alors de « remonter » l'arbre pour sélec- 
tionner le meilleur coup. 

Attention, il serait ridicule de garder la meilleure 
des notes calculées par l'évaluation sur l'en- 
semble du dernier demi-coup ! 

Un petit exemple vous le fera comprendre rapi- 
dement (voir fig. 1). 

Sur l'exemple fig. 

1, l'évaluation a 
noté chacun des 
coups du bout 
d'arbre : il est évi- 
dent que la meil- 
leure note est 1 2 - 
points : pour se diriger vers ce coup, il faut que 
l'ordinateur joue (2,2). Cependant, rien ne per- 
met d'affirmer que l'adversaire fera la bêtise 
de jouer (3,3) pour offrir ces 1 2 points à l'or- 
dinateur ! Il est évident qu'il a intérêt à jouer 
(2,1), l'ordinateur ne laisse que deux coups 
possibles, respectivement à 8 et 9 points, tous 
deux bien meilleurs que les 4 points trouvés 
précédemment : on montre ainsi que, bien que 
le coup à 1 2 points ne se trouve dans la bran- 
che (2,2), le meilleur coup à jouer est bien (2,1 ) 
assurant à l'ordinateur au minimum 8 points. 
Cet exemple met en évidence la méthode (nom- 
mée « mini-MAX ») pour remonter l'arbre. A 
tous les nœuds d'arbre impairs (là où l'ordina- 
teur joue), il faut sélectionner la note MAXimale 
(car l'ordinateur choisit son coup), tandis 
qu'aux noeuds pairs (là ou l'adversaire joue), 
il faut sélectionner la note MINImale (car il faut 
supposer que l'adversaire choisira le coup qui 
s'avérera le plus mauvais pour l'ordinateur I). 

Mais on constate rapidement que l'arbre 
s'étend considérablement en un nombre limité 
de demi-coups de recherche. Ainsi, si Ton con- 
sidère qu'en moyenne, chaque joueur a 6 
coups, l'ordinateur évaluera 6 2 = 36 grilles, à 
31/2 coups, 6 3 = 216 grilles... A 8 1/2 coups, 
il évaluera 6 8 grilles soit, en considérant un 
temps d'évaluation de 1/1 00 secondes, il fau- 
drait environ 280 minutes soit 4 H 40 de 
réflexion par coup ! 

Pourtant, nos programmes jouaient en milieu 
de partie à 8 et neuf demi-coups de profondeur. 
En effet, à chaque recherche d'arbre, il est inu- 
tile d'analyser toutes les ramifications : Un petit 
exemple (fig 2) vous montre la principale 
méthode, nommée « Alpha-Bèta » d'élagage 
d'arbre. 



& 




Aux premières évaluations, les notes (4,1) et 
(4,2), ont été de 7 et 8 points : la maximale 
est donc de 8 points. 


A l'évaluation 
(4,3), la meilleure 
est 9 points : il est 
donc évident que 
le programme peut 
arrêter l'évaluation 
de cette ramifica- 
tion qui ne ramènera aucune note que l'on 
pourra retenir ! 

En effet, après cette évaluation de 9 points, le 
noeud (3,2) sera affublé d'une note supérieure 
ou égale à 9, quoi qu'il arrive, la note (3, 1 ) sera 
donc retenue face à la note du (3,2). Cette 
méthode pour élaguer s'avère dans la pratique 
très efficace (surtout quand les premiers coups 
essayés ( 4, 3 ) sont les meilleurs . 


LA RECURSIVITE 

Pour générer un arbre permettant à l'ordinateur 
de réfléchir à 8 1/2 coups, il serait évidemment 
ridicule d'imbriquer 8 routines de génération de 
coups : cette méthode serait fastidieuse et ne 
permettrait pas de paramétrer la profondeur de 
recherche. 

Dans un tel cas, un programme récursif 
s'impose. 

La routine de génération de tous les coups joua- 
bles d'une grille s'appelle donc elle même, 
jusqu'à ce que le nombre d'appels soit égal à 
un nombre fixé, en l'occurrence 8 dans notre 
exemple. Ceci permet, en ne changeant qu'un 
simple petit octet, de modifier la profondeur du 
jeu, et donc le temps de réponse !. 

Dans notre programme, une petite variante a 
été adoptée : la génération des coups a été 
dédoublée pour des raisons de facilité, et sur- 




tout de rapidité : le programme de génération 
des coups blancs appelle le programme de 
génération des coups noirs, qui rappelle le pre- 
mier etc... Ainsi en dédoublant pour les deux 
couleurs, le retour noeud, l'évaluation... nom- 
bre de tests ont été supprimés l'efficacité en 
a donc été d'autant plus accrue. 

TRAITEMENT DU « PASSE >» 

Ûn problème se pose dans les programmes 
récursifs : le traitement du « passe ». Trois 
solutions sont possibles. 

• La première consiste à penser que le 
« passe » est une très mauvaise chose à ce 
stade de l'arbre, on attribue donc à celui qui 
passe une très mauvaise note, et l'on remonte 
l'arbre : C'est une solution qui peut être accep- 
table en début de partie, où « passer » signi- 
fie le plus souvent être complètement bloqué. 

• La seconde consiste à continuer la recher- 
che après ce passe, mais en comptabilisant ce 
passe comme un 1/2 coup. C'est la solution 
adoptée en milieu de partie, où il est important 
pour l'évaluation de donner une note sur des 
grilles où c'est toujours la même couleur qui 
a posé le dernier pion ! 

• La dernière consiste à continuer la recherche 
après ce passe, mais sans le compter comme 
un demi coup : c'est ce que nous faisons en 
fin de partie, où l'important est que tous les 
pions soient posés, quel que soit l'ordre I. 

Dans ces deux derniers exemples, il est impor- 
tant de considérer le cas des deux passes con- 
sécutifs : il faut arrêter la recherche, et comp- 
ter les pions, pour déterminer le vainqueur. 

Une dernière prévision avant de passer à l'éva- 
luation : tout programmeur d'OTHELLO en L.M, 
doit être persuadé de l'importance de l'Iopti- 
misation de ses routines, et particulièrement 
de la routine de retournement. 

Une petite étude nous a montré qu'un pro- 
gramme passait la majorité de son temps dans 
les retournements : cette partie du programme 
n'étant soumise à aucun critère objectif, il est 
donc important de travailler son optimisation. 

EVALUATION 

La principale qualité d'une évaluation appelée 
au bout d'un arbre de recherche à 8 1/2 coups 
doit être la concision : Mais tout le problème 
réside dans le fait que cette concision ne doit 


pas impliquer médiocrité. La structure de base 
d'une évaluation BASIC, tourne autour de deux 
pôles fondamentaux. 

• Prendre garde à la valeur « positionnelle » de 
chaque pion : c'est la méthode qui consiste, 
avec des tables à attribuer à chaque pion une 
note de position (note forte pour les coins, note 
faible pour les cases adjacentes aux coins...). 

• Contrôler la prise des coins puis des bords 
(valeur « structurelle ») c' est la phase essen- 
tielle du jeu par excellence : acquérir un coin, 
c'est favoriser l'extension de sa couleur à partir 
de ce coin : une aide précieuse pour la victoire. 

Un seul paramètre nous a permis de réunir 
d'une manière très efficace ces deux critères. 

Envisageons un bord, un bord contient 6 cases, 
prenant trois positions différentes possibles : 
vide ; noir ou blanc un bord de 6 cases peut 
donc prendre 36 soit 72 positions différentes : 
la méthode consiste donc à former une table 
de 729 octets dans lesquels sont stockées les 
notes de tous les bords possibles. 

L'accès au coin est permis par les bords, mais 
également par les diagonales. Nous avons donc 
constitué dans notre programme une deuxième 
table de 729 octets adaptée aux diagonales. 

En cours de jeu, il suffit donc d'ajouter les 4 
valeurs de bords et les deux valeurs de diago- 
nales pour avoir une très bonne approximation 
du jeu actuel. On voit en effet la couleur des 
coins pris, on voit également si des coins vont 
être pris le prochain demi coup on contrôle l'ex- 
tension sur les bords... 

A notre second programme, nous avons rap- 
porté d'autres paramètres pour affirmer 
l'évaluation. 

• Le premier consistait à contrôler la possibi- 
lité de jouer sur les cases B2, B5, E2, et E5. 

En effet, ces cases adjacentes aux coins sont 
réputées dangereuses : mais environ au bout 
du 1 5 e pion posé, le jeu commence à se blo- 
quer, et l'un ou l'autre se voit contraint de jouer 
sur l'une de ces cases. 

Le but de cette partie de l'évaluation est donc 
d'assurer à l'ordinateur une de ces cases dia- 
gonales pour bloquer le jeu, en ne laissant à 
l'adversaire que des cases diagonales offrant 
à l'ordinateur un coin sur un plateau. 

Le deuxième point important, allant de paire 
avec le premier, est le contrôle du centre. Lors- 
que les quatre pions du centre appartiennent 



à l'ordinateur, l'adversaire est le plus souvent 
bloqué. En effet jouer sur une case diagonale 
adjacente au coin implique immédiatement per- 
dre le coin. 


Quand le jeu 
se bloque, 
jouer une case 
diagonale (en 
vert), signifie 
donner un 
coin. 


Le troisième paramètre essaie de combler un 
des défauts des grilles de 729, ces grilles aident 
la prise du coin, mais ne favorisent guère l'ex- 
ploitation de ce coin. 

Ainsi ce paramètre a pour 
but d'évaluer l'extension en 
triangle autour de ce coin : 
lorsque les 4 cases immé- 
diatement adjacentes au 
coin, sont comme le coin, 
occupées par l'ordinateur 
(cases hachurées sur la fig.), 
cette routine évalue les 5 
autres cases du triangle grâce à une table de 
valeurs (5 cases 35 = 243 octets de grille). 

A ce stade des conseils, une restriction s'im- 
pose : tous ces renseignements permettent au 
programme de bien jouer, mais de bien jouer 
au milieu de partie uniquement. 

La fin de partie ne pose aucun problème. En 
effet, lorsque le nombre de cases libres permet 
au programme d'envisager tous les coups joua- 
bles (environ 12 pour nos programmes), 
jusqu'à la fin du jeu, il suffit de remplacer l'éva- 
luation précédemment décrite par un simple 
sous programme comptant les pions de cha- 
que couleur. 

Cette évaluation, parfaitement objective, per- 
mettra à l'ordinateur de finir la partie en jouant 
parfaitement tous les coups. 

Le début de partie pose des problèmes plus 
sérieux. L'évaluation de milieu de partie s'avère 
relativement incompétente. En effet, au début, 
il est trop tôt pour que même à 8 demi-coups, 
quelque chose puisse se passer sur les coins... 


Deux écoles s'af- 
frontent : les uns 
sont partisans de 
la bibliothèque 
d'ouverture : cette 
méthode peut être 
efficace, mais éga- 
lement très dangereuse, il est en effet impéra- 
tif que la bibliothèque soit adaptée au pro- 
gramme de milieu de partie, et cela, il est très 
difficile de bien le maitriser. 

Les autres (et nous en faisons pour l'instant 
partie), préfèrent rédiger un programme adapté 
au début de partie, jouant intelligemment ce qui 
pourrait être enregistré en bibliothèque. 

Jusqu'alors, aucune évaluation n'a réellement 
russi à nous satisfaire... 

Voilà de tels conseils devraient vous permet- 
tre de gagner à des championnats d'Europe 
(BRUXELLES), ou aux championnats interna- 
tionaux de Paris... (tel est notre palmarès). 

Dès maintenant, à vos claviers : nous atten- 
dons avec impatience tous nos nouveaux 
adversaires lors de la prochaine rencontre 
d'OTHELLO. 


Christophe CAMUS et Waël KOMBAR. 
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LES LOGICIELS 
« TANDEM/MICROVET » 

UNE APPROCHE ORIGINALE 
DE L'INFOREMTIQUE AGRICOLE 


En agriculture, un des gros problèmes de l'ins- 
tallation de l'informatique dans les campagnes, 
reste la saisie des données sur le terrain. Si 
l'éleveur, le technicien d'élevage, l'insémina- 
teur, le vétérinaire veulent obtenir de bons 
résultats, il faut qu'à tout moment ils puissent 
introduire dans leur machine des informations 
de qualité. 

Les difficultés actuelles du monde de l'élevage 
ne permettent pas d'envisager des investisse- 
ments importants. Heureusement les perfor- 
mances des PC SHARP ne cessent de s'amé- 
liorer et l'achat de ce matériel peu coûteux est 
bien souvent suffisant pour apporter en élevage 
des gains de productivité importants. 

Le calcul optimum des ratio alimentaires per- 
met de produire du lait ou de la viande au moin- 
dre coût. Le suivi des performances des ani- 
maux, de leur engraissement, de leur produc- 
tion laitière, de leur reproduction permet aux 
éleveurs une correction rapide, avant que la 
rentabilité de son exploitation ne soit altérée. 

Les logiciels TANDEM permettent par l'utilisa- 
tion de deux PC SHARP des échanges d'infor- 
mations entre les éleveurs et leurs conseillers. 
Sur une SHARP PC 1 253 préprogrammée l'éle- 
veur saisit les informations issues de son éle- 
vage, et peut les valoriser très rapidement 
grâce à de petits logiciels simples à utiliser. 

L'éleveur garde la maîtrise des informations 
qu'il collecte et peut s'il le désire, les faire traiter 
sur une SHARP plus puissante, (SHARP PC 
1261), afin d'en obtenir un Bilan plus détaillé. 
Les deux machines (SHARP 1253 et SHARP 
1261), peuvent être achetées par deux parte- 
naires différents. En effet, informatique ne doit 


pas devenir synonyme de surabondance d'in- 
formations ; bien souvent l'éleveur demande 
des logiciels simples et pratiques et rechigne 
à investir dans un matériel qui lui fournira des 
informations qu'il est parfois incapable de com- 
menter. Le technicien d'élevage, l'insémina- 
teur, le vétérinaire sont prêts à conseiller les 
éleveurs mais reculent souvent devant le temps 
perdu à saisir les informations. 

Les logiciels TANDEM sont une nouvelle forme 
de coopération entre l'éleveur et ses principaux 
conseillers. L'échange peut être fructueux pour 
les deux partenaires. 

La première génération de logiciels TANDEM 
comprend 1 logiciel « carnet de reproduction 
vache laitière » associé à un logiciel « bilan de 
fécondité 365 jours ». 

Le logiciel « carnet de reproduction » est un 
véritable agenda électronique qui enregistre au 


jour le jour les principaux événements dans l'ex- 
ploitation. L'éleveur peut gérer ainsi un trou- 
peau de 8 vaches et enregistre pour chaque 
vache une dizaine de paramètres (date de 
velage, date des inséminations, diagnostic de 
gestation...). A tout moment l'éleveur peut con- 
naître les animaux à surveiller en diagnostic de 
gestation, velage etc... Cet agenda électroni- 
que lui permet donc de mieux veiller sur ses 
animaux, et de gagner du temps lors de leur 
remise à la reproduction. Chaque jour gagné 
représente de 10 à 15 F/jour de frais « d'hô- 
tellerie » économisés. Cet agenda électronique 
libère le vétérinaire ou les conseillers de l'éle- 
veur de la fastidieuse saisie des données, par 
le simple transfert du fichier de la SHARP 1 253 
dans une SHARP PC 1261 pourvu du logiciel 
approprié il est possible à tout moment, et rapi- 
dement ( 1 0 minutes maximum), d'effectuer un 
bilan de la reproduction dans l'exploitation sur 
les 365 derniers jours. 

L'éleveur peut donc à tout moment être 
informé, d'une détérioration éventuelle des 
paramètres économiques de la gestion de la 
reproduction de son troupeau, et être rapide- 
ment conseillé par des professionnels compé- 
tents, quant aux mesures correctes à apporter. 
L'informatique de poche permet d'apporter des 
solutions performantes et bon marché, et 
même si les professionnels de l'informatique 
les méprisent un peu, il est évident que nous 
ne sommes qu'à l'aube d'une aarivée massive 
de ces petites machines dans le monde agri- 
cole. 

TANDEM/MICROVET 
21 rue Louis Melotte 
92600 Asnières 
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Le PC-1 21 1 a l'honneur, in effet ce tnme 
présentons un long programme peur ce i 
d'un programme ae navigation astronomiq 
à de nombreuses demandes, ce pregram 
sable sur tous les PC. Désormais vous ren 
tous les bulletins des programmes BASIC fa 
posable d'un modèle à l'autre. Vous trou 
montagnes électroniques à faire sur vos pockets. 

MT votre. 

Luc BURELLIER 
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1500MINITE 


Non, pas 1500 Minitels, mais un million pour 
la fin de l'année et même trois millions en 1 986. 
Voilà une réalisation de prestige utile, acces- 
sible, qui ne devrait pas diviser le pays en deux 
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clans... les minitellistes et des antiminitellistes. 
L'utilisation de votre PC 1 500 favori comme 
centre serveur Minitel nécessite une légère 
modification de là CE-1 58. En outre il vous fau- 
dra confectionner un câble de liaison approprié. 
Bien entendu cette modification n'affecte en 
aucun point les caractéristiques de la CE-1 58, 
seulement deux nouvelles sorties seront créées 
sur le connecteur du RS 232C, et ainsi les bro- 
ches 24 et 25 qui sont en l'air (c'est-à-dire non 
utilisées) seront activées. 

Le Minitel sera relié au RS 232C par l'intermé- 
diaire de sa prise péri-informatique (fig. 1). 
Deux points nous amènent à modifer la 
CE-1 58: 

a) les signaux issus du Minitel sont inversés par 
rapport à ceux qu'accepterait la CE-1 58 

b) le niveau de sortie (TX) 0, 6V est trop fai- 
ble pour être reconnu par l'entrée (RD). 


Donc pour activer (RD) il faut amplifier (TX) et 
par bonheur la solution retenue nous inverse 
notre signal par la même occasion. Les si - 
gnaux (TD) oscillent entre - 6 et + 6. C'est un 


bon niveau de sortie mais il faudra quand même 
les inverser (fig. 2). (CTS) sera activé par les 
4V. venant de (PT). On ne s'occupera pas de 
(TP). 






Comme il est évident qu'un sharpentier ne 
souffrira jamais de se laisser envahir par des 
cartes et des modules, nous saisirons l'oppor- 
tunité de glisser notre transformation au cœur 
de la CE-1 58. Ainsi BBX (car tel est son nom) 
sera alimenté par le VDD. Local qui supportera 
sans encombre les 10mA supplémentaires. 
Ici attention ! Il ne faut pas confondre VDD et 
VC + . Notre VDD sera prélevé sur la patte 14 
d'un des deux 74LS04 et la masse sur la patte 
7 du même Cl. Noter aussi que lors du démon- 
tage de la CE-1 58 la première intervention con- 
siste à retirer les batteries. Tout CC risquerait 
de vous causer des désagréments. 

N'ayant pas l'espace pour câbler notre circuit 
selon les techniques traditionnelles, nous ne 
compliquerons pas en gravant un Cl et on sou- 
dera nos composants à plat, sur un morceau 
de vero-board de 40 x 20 mm. (les bandes 
dans le sens de la largeur) (voir fig. 3). A vous 
d'innover pour que BBX ne dépasse rn aucun 
cas 7 mm en hauteur. 

Une fois câblé et ayant la mise en place il n'est 
pas interdit de la vérifier et même de le tester 
au multimètre. 

Ensuite intervient la phase rigolote de la 
magouille qui consiste à coller BBX directement 


sur l'UART de la CE, en l'occurence c'est un 
CDP 1854 ; pour ma part j'ai effectué la fixa- 
tion avec un point de colle thermofusible, il me 
sera éventuellement ainsi possible de décoller 
ce circuit par une légère chauffe au fer à sou- 
der, il est inutile de préciser que de rôtir l'UART 
avec 12 bâtons de colle à chaud est préjudi- 
ciable au bon fonctionnement de la CE-1 58. 
Une goutte de la taille de la tête d'allumette sur 
le vero-board, on applique au bon endroit, c'est 
tout. 


Sur les six fils issus de BBX on soude l'ALIM 
(masse et WD). Passons à la prise cannon de 
25(H) partie interne sur la broche numéro 2, 
on fait un piquage en y soudant le fil BBX2. 
Même chose en soudant BBX3 sur la broche 3. 
BBX24 broche 24, puis enfin BBX25 sur la bro- 
che 25. 

Reste à remonter le tout sans oublier la batte- 
rie et on passe à la confection du câble, il sera 
prudent de ne pas dépasser 3M de câble blindé. 


Inscription 
sur la 
touche 

Code 

envoyé 

Action avec la 
touche spéciale 
code et symbole 
correspondant 

, (virgule) 

2/C 

3/C 

. (point) 

2/E 

3/E 

' (apostrophe) 

2/7 

4/0 

; (point-virgule) 

3/B 

2/B + 

- 

2/D 

3/D - 

: (deux points) 

3/A 

2/A 

? (point 



d'interrogation 

3/F 

2/F/ 

1 

3/1 

2/1 ! 

2 

3/2 

2/2 

3 

3/3 

2/3 

4 

3/4 

2/4$ 

5 

3/5 

2/5% 

6 

3/6 

2/6 & 

7 

3/7 

2/7 

8 

3/8 

2/8 ( 

9 

3/9 

2/9) 

0 

3/0 

5/E 

# 

2/A 

5/B [ 

# 

2/3 

5/D] 


Inscription sur la touche 

Code envoyé 

Action avec la touche sjiéciale : 
codes et symboles 
ou séquence correspondante 

ENVOI 

1/3, 4/1 

Retour chariot 

RETOUR 

1/3, 4/2 

1/9, 4/2 (accent aigu) 

REPETITION 

1/3, 4/3 

1/3, 4/A- Action T2 : 
cette séquence permet la 
procédure de correction d'erreur 

GUIDE 

1/3, 4/4 

1/9, 4/8 (tréma) 

ANNULATION 

1/3, 4,5 

5/C 

SOMMAIRE 

1/3, 4/6 

1/9, 4/3 (accent circonflexe) 

CORRECTION 

1/3, 4/7 

Action Tl : deux chiffres 
doivent préciser les vitesses 
d'échange avec un périphérique. 

SUITE 

1/3, 4/8 

1/9, 4/1 (accent gravé) 

LOUPE 

Action locale, pas d'émission 
en ligne 


A jusqu'à Z 

4/1 jusqu'à 5/A 

6/1 (a) jusqu'à 7/A (z) 
(lorsque le terminal est mode 
enseignement 

ESPACE 

2/0 

7/F 

CONTROLE 

Aucune émission en ligne 
sans l'enfoncement simultané 
d'une autre touche 


CONNEXION-FIN 

1/3, 4/9 séquence envoyée 

1/3, 4/9 séquence envoyée 


vers le modem du terminal 

vers la prise péri-informatique 


exclusivement 

exclusivement 


MISE EN ROUTE 

Embrocher le 1 500 et la CE-1 58, puis vérifier 
que l'on peut encore l'utiliser comme avant. 
Sinon vous retournez à la case départ et ce qui 
suit ne vous concerne plus... 

Stopper la CE et la raccorder par son nouveau 
câble au Minitel puis CE-1 58, ON, Sharp, ON. 
Tapez SETCOM 1200, 7, E, 1 ENTER terminal 
ENTER, mettre le Minitel sous tension, et cons- 
tater que l'information passe effectivement 
dans les deux sens. 

Sortir du mode terminal, SETDEV PO ENTER, 
histoire de faire un brin de toilette à l'écran. 
Console 80, 1 , 0, envoyez LPRINT CHR$ &IB ; 
CHR$ &3A ; CHR$ &69 ;CHR$ &43 vous fera 
passer en mode ROULEAU. Vous pourrez ainsi 
lister au km. A quoi bon vous cacher les codes 
les plus croustillants, les séquences les plus 
ivres ! IB ; 3A ; 69 ; 46 appelle la loupe. IB ; 
61 vous retourne la position du curseur. 

Si j'envoie LPRINT CHR$ &1B ; CHR$ &48 ; 
I blink for Yoshino ! 

Avec IB ; 61 si la porteuse est en ligne, le 
MODEM du Minitel se maintiendra ON, escape 
M, N, O, trois variantes des caractères dilatés 
CONTROL N, GRAPH, ETC. 

Maintenant, dites-moi... ne pensez-vous pas 
que l'ETC pourrait faire l'objet d'une édition 
spéciale ? 

A suivre... 

MICHEL LOUTTER 
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Une réalisation inédite des Sharpentiers 

Schéma complet dans le prochain 
numéro X, 
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LES CODES CACHES DU LH-5801 


Dans toutes les tables publiées jusqu'à présent, 
on observe des colonnes entières d'instructions 
vides. 

Par exemple : 

la colonne &30-&3F ou celle &70-&7F. 

Nous trouvons en effet devant un nouveau 
registre 1 6 bits que nous nommerons V, sa par- 
tie forte sera Vh et sa faible VI. 

Voyons tout d'abord comment remplir les 
cases. 

Case &00 SBC XI 
Case &10 SBC Yl 
Case &20 SBC Ul 
La case 30 sera donc SBC VI. 

Autre exemple 

la case &38, notée dans les cases actuelles 

NOP sera 

Case &08 Xh 

Case &18 STA Yh 

Case &28 STA Uh 

La case &38 sera donc STA Vh 

Mais ces registres ont une particularité, c'est 
qu'ils sont insensibles à des affectations, la 
case &38 est donc bien un NOP car Vh ne 
prendra pas la valeur de A. 

On s'aperçoit que VI vaut toujours &00. Cela 
sera très utile : 

LDA VI &34 donne LDA 00 
CPA VI &36 donne CPA 00 
ADI A, VI &32 donne ADI A,c 

Mais Vh ne suit heureusement pas cette des- 
tinée monotone, car lui évolue, il prend la 
valeur du poids fort de la dernière valeur 1 6 
bits écrite et exécutée. 

EXEMPLE 

LDA (&n1 n2 n3 n4) STA (&n1 n2 n3 n4) 
ORI (&N1 n2 n3 n4) B IA (&n1 n2 n3 n4) 
Après l'exécution d'une de ces instructions, Vh 
vaudra &n1 n2. 

L'utilisation des registres 16 bits ne modifie pas 
Vh. 


Outre ces instructions, voici quelques cas par- 
ticuliers où Vh est changé : 

LDI S,&n1 n2n3n4 Vh = &n1 n2 
JMP &n1 n2 n3 n4 correspond en fait à 
LDI P,&n1 n2 n3 n4donc Vh = &n1 n2 
SPJ 8ml n2 n3 n4 correspond à PSH P 
LDI P,&n1 n2 n3 n4 donc Vh =n1 n2 
LDX V on aurait normalement Xh=Vh 

Xl=v=&00 1. 

Or on s'aperçoit que Xh est inchangé, mais que 
XA vaut bien &00, cette instruction correspond 
donc à 
LDI X 1,&00 

Voyons maintenant une particularité qui per- 
met peut-être d'expliquer d'où provient ce 
registre V. 

PSH V 

On pourrait supposer que l'on va obtenir dans 
la pile, Vh puis VI, or on obtient dans cette 
pile : 

(Poids fort de S -11(400). 

Et au retour V est inchangé, donc il s'est modi- 
fié au cours de l'exécution de cette instruction 
pour reprendre ensuite sa valeur originelle. 


Il semble, de plus, que les instructions qui 
devraient mettre en valeur à l'adresse V ne 
fonctionne pas, par contre celles lisant un octet 
donnent le bon résultat. 

Cette découverte va permettre de comprendre 
un peu mieux la marche exacte du micropro- 
cesseur, par exemple, lorsqu'il exécute une ins- 
truction INC, effectue-t-il l'opération puis posi- 
tionne Z et C si le résultat est 0, ou bien teste- 
il- si. le nombre à incrémenter est &FF, si oui 
il vaudrait 0 et il positionne C et Z, sinon il effec- 
tue l'opération. Et bien nous allons le savoir 
grâce à V. Voyons sous forme de schéma les 
deux cas. 

Comment faire ? Rappelez-vous, Vh n'est pas 
modifié par les instructions INC et autres LD 
ou ST. On essayera donc INC VL, si c'est le 
premier cas, le INC n'a pas d'effet, donc VI vaut 
toujours 0, il teste = 0 ? oui - $ C = 1 Z = 1 or 
dans la réalité C = 0 Z = 0, vérifions le deuxième 
cas cette fois avec Vh valant &FF, on fera donc 
avant LDR (&FFFF) puis INC Vh, il teste 
=&FF ? oui -$ Vh=&00, mais il est insen- 
sible à ces instructions, donc Vh = &FF, C = 1 
Z = 1, et c'est bien ce qu'on obtient. 

On peut refaire ce test pour DEC ou d'autres 
instructions et cela permet de plonger au cœur 
microprocesseur. 

Mais d'où vient V ? On peut supposer avec ce 
que l'on obtient avec PSH V que ce registre est 
un arctéfact d'un registre interne servant pour 
les calculs intermédiaires. 

Marc Girondot 
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_RDP 

SPU 


RDP RDP 
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KrÎTïïffl 


EMPLOI D 
MONITEUR 
EN MNEMONIQUES OFFICIEL 



Suite à de nombreuses demandes, nous 
publions un moniteur désassembleur en mné- 
moniques officiels. Il est entièrement en lan- 
gage machine et occupe 4531 octets de 
mémoire vive. Il ne comprend pas les macro- 
instructions mais permet une recopie très facile 
sur imprimante. Il a été adapté d'un programme 
provenant de MICRO-SYSTEME. 

MODE D'EMPLOI 

Après avoir fait un CALL &4F00 vous passez 
en mode moniteur. Les fonctions sont : 


M nnnn ENTER ENTER 

Effectue un DUMP à l'affichage, les 4 curseur? 
sont utilisables et permettent de modifier des 
octets en mémoire. 

L nnnn-mmmm 

Effectue un DUMP sur imprimante par groupe 
de six octets. 

A nnnn 

Passe en mode assemblage, avec CA vous 
effacez le mnémonique si il y a erreur, et vous 
pouvez entrer le vôtre ; vous pouvez utiliser 
pour cela les touches réaffectées. Les touches 
curseurs sont bien entendu utilisables. 


sÊÈÈËÈSÊÊËÈÈÈÈËÈm 


Désassemble le programme et permet aussi de 
modifier un mnémonique. Vous pouvez vous 
déplacer en mémoire avec les flèches. Le 
désassemblage vers le haut sera souvent faux, 
le programme remontant d'un octet quelque 
soient les octets précédents. 

I nnnn-mmmm 

Effectue un listing désassemblé sur 
l'imprimante 
O nnnn+ (-) mmmm 

Effectue une opération entre deux nombres 
héxadécimaux. 

N nnnn mmmm oooo 

Déplace les octets de nnnn à partir de oooo. 
Q nnnn 

Effectue un CALL &nnnn 
De plus la touche « changement de réserve » 
copiera sur la CE-1 50 tous les caractères pré- 
sents à l'affichage. 

Pour avoir la signification exacte des touches 
du clavier, reportez-vous à la figure 1 . Le lis- 
ting du programme est donné de façon à être 
rentré avec le micro-moniteur SHARP du 
numéro 9. Si vous en voulez une version sur 
cassette, sachez qu'il se trouve dans la logi- 
thèque et qu'il « coûte » 1 point de bonus. 

VICTOR OSTROMOURHON 


10 Input "DE", A, "A", Z 
20 H =0 1 = INT (A/256) H = l GOSUB "HEX" LPRINT A$ ; 

30 l=AAND &FF H=H + I : 

40 FOR A=ATO A + 7 l=PEEK A :H = H + I : GOSUB "HEX" : LPRINT A$ ; " " ; : NEXT A 
45 I = HAND &FF : GOSUB "HEX" : LPRINT " " ; A$ 

50 IF AIZGOTO 20 

100 "HEX" J = INT (1/16) :K = IAND 15 : A$=CHR$ (J +48 + 7 + *(J < 9)) +CHR$ (K+48 + 7*(K<9)) : RETURN 







Ce petit utilitaire permet de sortir un listing de la mémoire sous une forme identique à celle du moniteur Sharp du bulletin numéro 9. Cela vous 
permettra de vérifier que vous n'avez pas fait d'erreur grâce à la somme de contrôle à la gauche des 8 cadres. Taper RUN et répondre aux deux 
bornes du dump. — - MARC GIRONDOT 
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INVERSION VIDEO PARTIELLE 
ET APPLICATIONS 


donné sur le listing 3. Pour l'utilisation, il fau- 
dra déplacer la zone inversée avec les flèches 
du curseur et appuyer sur ENTER quand la zone 
inversée est sur l'option choisie. Au retour du 
sous-programme vous aurez dans J le numéro 
correspondant à la variable qui a été choisie. 

Par DEF X vous essayerez un programme de 
détermination d'une date et par DEF Z un pro- 
gramme de codage des cartes au bridge. Les 
programmes sont donnés sur le listing 4. 


L'écran du PC-1 500 n'est pas particulièrement 
grand, il convient donc de l'utiliser au maximum 
de ses possibilités et même au-delà (I), c'est 
ce que nous proposons de faire. 

On trouve dans le TECHNICAL REFERENCE 
MANUAL un exemple d'inversion vidéo, mais 
elle fait uniquement une inversion totale sans 
pouvoir définir un nombre de colonnes ni leur 
place. C'est ce que nous vous proposons, avec 
ensuite une application qui reprend un peu le 
principe de la souris déplaçant un symbole sur 
des cases. La souris n'ayant pas été encore 
adaptée au PC-1 500, nous nous contenterons 
du déplacement d'un symbole. Il sera symbo- 
lisé par une zone de l'écran en inversion que 
l'on pourra déplacer sur plusieurs choix et taper 
ENTER quand on aura la bonne option. 

Le programme en langage machine est relogea- 
ble, c'est-à-dire que l'on peut le mettre à n'im- 
porte quel endroit en mémoire sans avoir à 
changer les codes en mémoire. Seul bien sûr 
l'argument du CALL est à modifier en consé- 
quence. 

La liste des codes est donnée dans le listing I, 
les DATA sont interprétés par le programme 
"POKE.LM" donné dans le listing 2. Pour uti- 
liser ce dernier il faut d'abord opérer un RES- 
TORE au numéro de la ligne où se trouve le pre- 
mier DATA à traduire, et mettre dans Q 
l'adresse du premier octet où devra être implan- 
tée la routine. Pour la lancer on fera GOSUB 
"POKE.LM" qui pokera jusqu'à DATA "END". 

Le programme est alors entré et utilisable. 

Il faut alors définir les colonnes à inverser. On 
fera POKE &774E, n, m. n sera le numéro de 
la première colonne et m le numéro de la der- 
nière, les colonnes étant numérotées de 0 à 
1 55 et faire alors un CALL au premier octet du 
programme. 

Passons maintenant aux applications, le choix 
par cochage. Dans tous les cas on utilisera la 


sous-routine de cochage qui est un utilitaire 
permettant d'utiliser au mieux ce principe. Il 
faut mettre dans A$, B$, Çf etc. les messa- 
ges à afficher, la dernière variable étant vide. 
Pour indiquer la fin des possibilités, mettre dans 
W le premier octet de la routine et lancer la rou- 
tine par GOSUB "COCHEZ" le programme est 


Cette méthode, outre un intérêt esthétique cer- 
tain permet d'économiser des places de carac- 
tères car il n'est plus nécessaire de laisser des 
espaces entre les mots. 

PAUL HENRY 


LISTING 1 

90 "L" RESTORE 140:Q = 471 50:GOSUB "POKE.LM":END 
100 REM INV-VIDEO Partielle 
110 REM 

120 REM PREPA : No first Point — * &774E No last Point — &774F (0-155) 

130 REM 

1 40 DATA "A5774E.0A "REM LDA &774E:STA XL 

150 DATA "A5774F.AE7875 "REM LDA &774F:STA &7875 
1 60 DATA "FB.00.AE7800 "REM SEC :SBC XI :STA &7800 Nb Points — &7800 

1 70 DATA "CD8C.44 "REM MACRO &8C :INC X last Point — Xr 

180 DATA "5878.5A01 "REM LDIYh &78: LDIYI &01 &7801 — Yr 

1 90 DATA "B5F0.1E "REM LDIA &F0: STA(Y) &F0 dans &7801 

200 DATA "84.B902.8903 "REM LDAXh: ANI&02: BZR + 3 si Xh = 77ou76 on saute 
210 DATA "B50F.1E "REM LDIA &0F: STA(Y) sinon "OF" dans &7801 

220 DATA "A57800.2A "REM LDA &7800: STA Ul BOUCLE sur nb Points 

230 DATA "05.1D.43 "REM LDA(X): EOR(Y): SDE(X) inverse digit bas 

240 DATA "05.1D.43 "REM LDA(X): EOR(Y): SDE(X) inverse digit haut 

250 DATA "4EFF.890A.4A4D "REM CPIXL FF: BZR + 10: LDIXL 4D si chgt afficheur^ 

260 DATA "84.B902.8903 "REM &4D -XL, test si Xh = &74ou&75= =) &0F -&7801 
270 DATA "B50F.1E "REM LDIA &0F: STA(Y) 

280 DATA "881 6.9A "REM test fin de boucle, RTN 

290 DATA "END" 

LISTING 2 

2560 "POKE.LM'':REM POKE LM FROM DATA 
2570 Z=Q 

2580 FO K = ITO 500:WAIT 0 
2590 READ A$:CLS 

2600 IF A$ = "END''WAIT: PRINT "SIZE:" ; Z-Q;" octets": RETURN 
2620 PRINT ; 

2630 FOR J=ITO LEN A$-1STEP 2 
2635 Z$ = MID$ (A$,J,1) 

2640 IF Z$="."OR Z$=" "LET J=J-1:NEXT J:NEXT K 

2660 B=ASC Z$-48:C = (B — 7*{B> 9))* 1 6 

2670 B=ASC MlD$ (A$,J + 1,1)-48:C=C+B-7*(B>9) 

2680 POKE Z,C:Z=Z+1:NEXT J:NEXT K 
2720 REM 






78CE PUSH A sauve l'accumulateur 

78D0 LD UL, 60 fréquence 

78D2 LD XH,01 

78D4LD XL, 20 X = durée du BEEP 
78D6CALLE66F BEEP 1, UL, X 
78D9 POP A récupère 

l'accumulateur 

78DB RET retour au moniteur 

La routine entrée, faites POKE & 785 B, &78, 
&C0 puis POKE &79D4, & 55. Vous disposez 
à présent d'un clavier à répétition, l'appui sur 
une touche est marquée par in petit BEEP et la 
touche OFP agit maintenant comme si la 
machine s'éteignait par un AUTO POWER OFF. 

Attention ! Telle quelle, votre routine peut être 
effacée par un CLEAR et si cela se produit votre 
ordinateur va se "planter". Je vous conseille de 
placer cette routine à un autre endroit de votre 
choix (la routine est intégralement relogeable). 
Bien sûr, vos routines peuvent être plus déve- 
loppées, vous pouvez modifier le sens de cer- 
taines touches, protéger votre ordinateur, etc. 
Notre DRIVER ne fait qu'une vingtaine d'octets, 
il en existe qui font plusieurs kilo-octets comme 
le programme PC VISION (éditeur pleine page) 
qui n'est qu'un gigantesque driver ! 

Nous verrons une utilisation pratique d'un dri- 
ver dans l'article sur les touches du MODE 
RESERVE. 

PASCAL ABRIVARD 


LIGNE BASIC EN ZONE RESERVE 


Cette routine correspond à un besoin réel quand 
on écrit des programmes assez longs. Elle va 
permettre de concatener deux lignes de pro- 
gramme sans avoir à en retaper au moins une. 
Pour faire cette routine, on s'est servi d'une 
particularité bien utile. A chaque fois qu'une 
ligne de programme est affichée, l'adresse de 
son premier octet se trouve dans les octets 
78A6 et &78A7. A partir de là il ne reste plus 
qu'à transférer dans la zone RESERVE en sup- 
primant tout ce qui fait la particularité des lignes 
de programme : 

• les deux octets du numéro de ligne 

• l'octet de la longueur 

• l'octet &0D à la fin de la ligne 

A partir de ce moment, vous obtiendrez la répli- 
que de la ligne en appuyant sur la touche cor- 


respondant au numéro de la réserve. 

Pour rentrer le programme nous vous conseil- 
lons d'utiliser la routine «POKE.LM » donnée 
sur le listing 2 avec pour DATA ceux donnés 
sur le listing 1 . Pour le lancer, faire DEF T vous 
aurez alors en mode réserve 1 sur la touche 3 
( # ) CALL &7190C et sur la touche 1 (!) rien 
pour l'instant; 

Placez-vous sur une ligne soit grâce à LIST soit 
grâce aux flèches, et appuyez sur # en mode 
réserve 1 . Alors appuyer sur la touche I, votre 
ligne s'affichera, vous pouvez en faire ce que 
vous voulez, par exemple la mettre à la suite 
d'une autre pour gagner de la place en 


mémoire. 


P. HENRY 


REM / Ligne BASIC en zone RESERVE 
"T":RESTORE "T":Q=&7190:GOSUB "POKE.LM" 

A=PEEK &7863*256 + &56 

REM on va poker en début de la zone réserve:3 call&7190 1,0 

POKE A, 3, 241 ,1 38,38,55,49,57,48,64, 1 ,44,0;END 

REM 

REM codes L.M. ligne PGM - zone réserve > 

REM 

DATA "CCA6.44.44.05.2A ":REM début.ligne — -Xr 

DATA "05.DF.DF. 28.44 ":REM long.texte — -Uh 

DATA "5878.5A63.15. 18 ":REM début memory—Yh 

DATA "5A56.6A6E.B501 ":REM Prépa recherche code ( 

DATA "1 7.8B04.54.8806 ":REM boucle recherche code 

DATA "E4. 54.24.26.8301 ":REM y a-t-il encore assez de I 

DATA "E0.A4.2A ":REM Uh — ►UL 

DATA "F5.8803 ":REM boucle de transfert ligne 

DATA "B500.1E.9A.01 ":REM zéro en fin de zone et R' 

DATA "END" 


REM début.ligne — »Xr 

REM long.texte — -U h 

REM début memory — -Yh 

REM Prépa recherche code 01 en zone réserve 

REM boucle recherche code 01 en zone réserve 

REM y a-t-il encore assez de bytes en zone réserve 

REM Uh — ►UL 

REM boucle de transfert ligne basic — -réserve 
REM zéro en fin de zone et RTN 


LISTING 2 

2560 "POKE.LM":REM /Poke L 
2570 Z-Q 

2580 FOR K = 1TO 500:WAIT 0 
2590 READ A$:CLS 

2600 IF A$ = "END"WAIT :PRINT"SIZE:";Z-Q;" octets":RETURN 
2620 PRINT A$; 

2630 FOR J = 1TO LEN A$-1STEP 2 
2635 Z$ = MID$ (A S , J , 1 ) 

2640 IF Z$ = "."OR Z$=" "LET J = J - 1 :NEXT J:NEXT K 

2660 B=ASC Z$-48:C = (B-7*(B>9)*16 

2670 B=ASC MID$ (A$,J + 1,1)-48:C=C+B-7*(B>9) 

2680 POKE Z,C:Z=Z + 1:NEXT J:NEXT K 
2720 REM 


LES INCONNUES 
DU MODE RESERVE 


Dans l'article sur l'évaluateur du PC 1 500 (bul- 
letin numéro 8), on pouvait trouver une table 
pour les codes ASCII allant de 0 à 31. Cette 
table laissait apparaître des codes inconnus, et 
plus particulièrement ceux de code ASCII (FO) 
et 23 R. 

Dans le désassemblage de la routine de traite- 
ment des touches du MODE RESERVE, on 
s'aperçoit que l'ordinateur accepte des codes 
allant de 10 hexa à 17 hexa, les codes 10 et 
17 restant un mystère... 

Ces codes correspondent à deux nouvelles tou- 
ches RESERVE. Votre PC 1 500 en possède donc 
8 au total et pas seulement les 6 accessibles 
au clavier. 

Regardons d'un peu plus près le mode RESERVE 
de votre ordinateur : lors de l'affectation d'une 
touche, l'ordinateur met un code qui caracté- 
rise la touche affectée en fonction du mode (I, 


II, III), suivi du texte affecté à la touche. La fin 
du mode RESERVE est marquée par un 0. 

Les codes des touches sont donnés par la table 
suivante : 

mode I mode III mode II 


FO (DEF Z) 

0 

8 

16 


Fl (!) 

1 

9 

17 


F2(") 

2 

10 

18 

Notez 

F3( ) 

3 

11 

19 

l'inversion 

F4($) 

4 

12 

20 

entre 

F5(%) 

5 

13 

21 

les 

F6(&) 

6 

14 

22 

modes 

F7(DEF X» 

7 

15 

23 

Il et III 


Le problème pour utiliser les deux nouvelles 
touches RESERVE est de générer les codes 
ASCI1 10 hexa et 1 7 hexa. On peut soit réas- 
signer des touches du clavier avec les deux 


codes (cf bulletin numéro 5), soit utiliser un 
DRIVER. 

Pour la seconde méthode on va changer sous 
driver la signification de <DEF> "Z" et de 
<DEF> ''X'', pour cela reprenons la routine 
donnée en exemple dans l'article précédent et 
complétons la : 


78 DB CP A, 9A compare 

au code DEF Z 
78DD JR NZ, 78 E3 sauf si différent 


78DF LD A, 10 

78E1 JR 78E9 
78E3 CP A, 98 

78E5 JR NZ, 78E9 
78E7 LD A, 17 

78E9 RET 


Si DEF Z, change en 
ASCI1 10 
sauf à la fin 
compare au code DEF 
X 

sauf si différent 
si DEF X, change en 
ASCI1 10 

retour au moniteur 


Pour accéder à FO faites sous mode réserve DEF 
Z, et DEF X pour F7. Tout fonctionne très bien 
en dehors du FO en mode I, en effet son code 
caractéristique est 0, ce qui indique la fin de la 
réserve. 

Vous voilà à présent avec 8* 3 = 24 touches 
à assigner ! 

PASCAL ABRIVARD 



?:*cn mnmmwm m mynm 


2;REf1 * t 
3:*e n * noRpiON 10*10 * 
4îREH * PAR 6IR0ND0Ï «arc * 
5;RET1 * ? 


o.rei 1 mmre m wwwm rem 

25: 4P JT 0;CLEPR iOJfl P<39>, 8(93), U< 
2)),B*<5):FQR J=0ÎO 4:REPD ÜCJ)s 
NEXT J 

26: OH ERROR GOTO 30;COLÛR 3: C5I ZE I 
30: FOR J»3T0 20STEP 5:REP0 V<J); 

NEXT J: RE AD B*<0>, B*C1 1, 0#<5) 

35: flpTP .01, .03, .3, J6, 10000, . !,2, 10 
0, 1000000, - ‘ •**- 
47: GOTO 700 

200: ON ERROR 60T0 2S0:CRAPH :LSIZE 1 
: S0R6N 

210: LPRJNT *’ 0)2345670 3' 

CLCURSOR <,0,-121 

220: FOR J =01 O 9: S0R6N ; LPRJNT STR* J 
+ r 9 v ; 

230: CLCURSOR (0, ** 12): NEXT J: CLCURSOR 
U4, -2):S0R6N ;FQR I=0ÎO 98STEP 
24: LINE <0, ï 1-020, I) 

23) : LINE <120, 1 + 121*- <0, 1*121 : ^EXT I: 
UNE <0, Î201-U20, 120) 

232 : FOR J=0TO 38STEF 24:L1N£ <1, 120) 
-<!, 0) 

233: UNE <I4J2,0)-U U2, 120>:NEXT J: 
UNE U 20, J 20)- <) 20,9) 

233: TEXT :CSI2E 1 
240: LF 6 
250:RE!URN 

300: ON ERROR GOTO 350:GRPPH : 

CLCURSOR <0, 170): SOR6N iLSIZE 1. 
X-*INT CXs 10): CLCURSOR U8-KX-Y*! 
0*12, -Y*12) 

310: LPR1NT 0*<A(X)>; CLCURSOR <0,-11 
0) 

340: TEXT : BEEP 1: LSI ZE J : LF 6 
350: RETURN 

700: CLS :PRJNÎ "Comsoencez-vous ?” ?: 
COSUB 9000: GOSUB 200: T F R*=* 0“ 
GOTO 770 
750 : GOSUB 1030 


760: *F FO0SOTO 830 
770: 4P! T : COSUB 2000 
780: TF F=0THEN 750 

830: 4P1 T 0; BEEP J:*F F=!PR1NT “J ai 
gagne en 1 '; GOTO 840 
832: TF F=-1PRINT -J ai perdu en*; 
GOTO 840 

834 ; **RJNT ‘‘Partie nul le tmres ” ; 

840: «4P J T :°RJNT N; “ coups *. END 
1030:S=-1 ;JPIT B: CLS ;«*R1NT 'Jm jou 
e . . .4PJT 

1050: FOR J=0TO 93: B<1 1=0; NEXT J 
I 090: C=1 : t 1 =0: T2=5: K2=90: COSUB 1 500 
1 1 00: t=3: M=4: * 2=9 : <2=50 : COSUB 1500 
1110: 0 J 0: T 1 =0: COSUB 1 500 
11 20: C =11: '2=5: COSUB 1500 
Il 70; S--]: *QR J=0ÏO 99 
1220: TF <3<J1>S0R <0<J)=SPND RNO <0 
)>.8))PN0 PC J )=0LET C=J:S=B<C) 
J 230: NEXT J 

!240:R*=STR* C: 'F LEN R*=JLET R*="0 
V *R# 

1245: BEEP J : CURSOR 8:«»RJNT ‘ en “;R4 
:0<C>=5 

1 250: X=C: COSUB 300: N=N-» 1 : TF N=1 00OR 
<S=0PND N1J1LET F=2 
1230: TF S>=U<20)LET F=1 : X=C: COSUB 1 
0000 

1300: RETURN 
1 500: C4=4*C 

1530: FOR J=J1T0 32: FOR K=0TO K2STEP 
1 0 : P»J*K; B=P**C4 ; 7=0 
1570: FOR P=PTO BSTEP C;7=Z-*P<P): 
NEXT P 

I5B0îO=U<Z): ÎF QO0FOR P=PTO BSTEP 
C: B<P)»0<P)+O: NEXT P 
1600: NEXT K 
J 610: NEXT J 
1620: RETURN 

2000: CLS : ÎNPUÎ 'Uotre coup ‘;P 
2030: TF AC0OR P>990R POINT POR PCP 
1O0THEN 2000 

2040: R#=STR* P: TF LEN R*=1LET R*=“0 
**R* 

2060: A<P)=J ; M=N+ ! : X=P: GOSUB 300 
2100: TF N=J 00LET F=2 


21 10: TF B<P)>=UC4)LET F=-1:X=P; 

COSUB 10000 
2220: RETURN 

9000:R*=7NKEY* . ’F R*=‘“THEN 3000 
9010: TF RâO-O^PND R« VN-PRINT "O 
ou N**: GOTO 9000 
9020: BEEP J: RETURN 
10000: J«J: COSUB 1 0010: **00 J=3I0 JT. 

COSUB 1 0010: NEXT J: RETURN 
10010: V =X 

10020: ON ERROR GOTO 10059: TF CY-UVI 
0=JNT <<Y*J 1/J01PND <J=JOR J=J 
1160T0 10060 

10030: ÎF Y/10=!NT <Y/10)PND J=3G0T0 

10040: TF P<X)OP<Y*J)GOTO 10060 
10050: V»Y*J ; COTO 1 0020 
10059: VcrY-J 
1 0060: U=Y» *4=0 

10061; 4=144. j ; *f U=560SUB 10070; RETURN 
10062: ON ERROR GOTO 10069: TF tU-HVl 
0=1 NT <<V+J 1O01PND J=3LET 
10063: TF UU0=JNT <UO0)PNO <J=10R J 
«JDLET 

10064; TF P<X)OP<U-J)LET 
10065: 4=U- J . COTO 10061 
10069: RETURN 

10070: ON ERROR GOTO 10100 
10080: CRPPH : CS! 2E 2 : CLCURSOR <0,170 
1 : SÛR6N ; P=JNT <Y/10);B=iNT tU 
/ 10 ) 

10030: LINE <20*CY-P*J 01*12, 3-P*j2)-< 
20+<U-B*J0)*12, 3-Btl2), 0. 1 
10035: CL CURSOR <0, -1 10) : BEEP l: T EXÎ 
: CSI2E 1 : LF 6 
10100: RETURN 


Taper RUN et répondre par QO ou 
Y pour savoir si vous commencer. 
Pour jouer, donner vos coordon- 
nées sous la forme : 
ligne en dizaine et colonnes en 
unit. 




LANGAGE 

MACHINE 

4- PARTIE 


DECALAGE VERS A GAUCHE ET A DROITE : 

Le microprocesseur du PC 1 500 dispose d'ins- 
tructions qui sont indispensables à tous calculs, 
ce sont les décalages. Il en existe 4 qui travail- 
lent sur des entiers de 8 bits : 

SLA : décalage de 1 bit vers la gauche sans 
carry (BITO = 0) 

SRA : décalage de 1 bit vers la droit sans carry 
(BIT7 = 0) 

RLA : décalage de 1 bit vers la gauche avec 
carry (BITO = C) 

RRA : décalage de 1 bit vers la droite avec carry 
(BIT7 = C) 

Les décalages correspondent à une multiplica- 
tion ou à une division par 2 de l'accumulateur, 
ce qui est parfait pour tous les calculs sur des 
entiers de 8 ou 16 bits. 

Nous allons voir à présent des exemples d'uti- 
lisation des décalages en écrivant une routine 
de multiplication et de division sur les entiers 
de 8 bits. 

LA MULTIPLICATION 

La multiplication en binaire s'écrit exactement 
comme pour la base 10, voyons ceci sur un 
exemple, multiplions 5 par 6 : 

(5) 101 

(6) x 110 

000 

1010 

10100 

(30) 11110 

Comme on le voit, une multiplicaiton se cons- 
truit par une suite de décalages et d'additions. 
Pour un programme multipliant deux nombres 
de 8 bits, par exemple XL*UH avec le résultat 
dans Y, les étapes seront : 

1) mettre 0 dans le résultat 

2) décalage à droite du multiplicande 

3) si le bit 0 du multiplicateur vaut 0 allez en 4 

4) additionner le multiplicande au résultat 

5) décaler le multiplicateur vers la gauche 

6) recommencer au 2 tant que le multiplicateur 
n'est pas nul 


Notez que l'on peut, plutôt que de comparer 
le multiplicateur à zéro, boucler 8 fois de suite. 
En effet au bout de 8 décalages vers la droite 

Le programme est le suivant : 


LA DIVISION : 

Même si le programme semble un peu plus 
compliqué, l'algotithme reste un peu près le 
même, mais au lieu de faire des additions, on 


on est sur qu'un entier 8 bits est nul mais on 
va perdre du temps pour rien si le multiplica- 
teur est petit. 


soustrait le diviseur au dividende. 

Un programme de division 8 bits/7 bits (YL/XL 
avec au retour, le quotien dans XH et le reste 
dans YH) pourra s'écrire : 


LDI YH,00 

mise à zéro du tampon pour les décalages de YL 

LDI XH,00 

mise à zéro du dividende 

LDI UL,07 

on exécute 8 fois la boucle principale 

boucle LDA XH 


SLA 

on décale XH vers la gauche 

STAXH 


LDA YL 


SLA 

on décale le registre Y vers la gauche 

STAYL 

ici aussi, il faut décomposer l'opération en 

LDA YH 

deux temps. 

RLA 


STAYH 


SCF 

met le carry à zéro avant la soustraction 

SCB A, XL 

soustrait le diviseur à l'accumulateur (A-YH) 

BCR inf 

saut si A est inférieur à XL 

STAYH 

sinon YH = YH-XL 

INC XH 

incrémente XH 

inf LOP boucle 

retourne à la boucle principale 

RET 

fin 


DEBUT 

LDI XH,00 
LDI YL,00 

XH sert de tampon pour les décalages de UL 


LDI YH,00 

mise à zéro du registre Y 

BOUCLE 

RCF 



LDA UH 

charge l'accumulateur avec le multiplicateur 


RRA 

rotation à droite, le bit 0 de UH passe dans le carry 


STAUH 

UH = UH/2 


BCR nonadd 

si ce bit est à zéro, pas d'addition 


LDA XL 

si le carry vaut 1 il n'y a pas de saut et on additionne 


ADD Y, A 

le registre X au registre Y. 


LDA XH 

l'absence d'opération directe sur des nombres de 16 bits 


RCF 

oblige à écrire : YL = YL + XL 


ADC A,YH 
STAYH 

puis : YH = YH + XH avec retenue 

NOADD 

LDA XL 

on multiplie le registre X par 2, ici aussi on est obligé 


SLA 
STAXL 
LDA XH 
RLA 

STAXH 
LDA UH 
BZR boucle 

de décomposer l'opération en deux 

FIN 

RET 

on réitère la boucle principale. 




LES NOMBRES PREMIERS : 

Pour illuster un peu les possibilités du langage 
machine, nou&allons écrire un programme de 
recherche des nombres premiers en utilisant les 
routines précédentes. 

Notre programme utilisera l'algorithme très sim- 
ple qui consiste à diviser un nombre par cha- 
cun des termes de la suite : 2, 3, 5, 7, 9..., n avec 
n inférieur à la racine du nombre. Si un élément 
de la suite divise notre nombre c'est que celui-ci 
n'est pas premier. 

Bien sûr, notre division ne permettra pas de trai- 
ter des nombres de plus de 255, mais rien ne 
vous empêche d'écrire, en reprenant le même 


algorithme, une division 16/1 5 bits ou même 
32/31 bits. 

Le passage des paramètres va se faire par l'oc- 
tet 78C0 pour le nombre à tester et 78C 1 pour 
le flag de retour, si ce drapeau est à 1 c'est que 
le nombre est premier. 

L'algorithme va s'écrire : 
lecture du nombre 
si pair alors pas premier 
i = 1 
i = i + 2 
calcul n/i 

test le reste de la division 
si reste = 0, flag = 0 et fin 


sinon 

le diviseur est-il inférieur au quotient ? 

si oui alors boucle 

sinon 

flag = 1 et fin 
fin 

La routine en langage machine est dans les 
DATA du programme basic qui suit. La routine 
est implantée de 78C0 à 78F0. Pour utiliser le 
programme, faites DEF N et entrez le nombre 
à tester (de 1 à 255) : la réponse arrive 
instantanément. 

PASCAL ABRIVARD 
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RENUMBER VI .0 POUR LES 
K1245, 1250, 1251, 1255 


Ce programme de renumérotation est un utili- 
taire bien pratique. Il permet de renuméroter 
un programme à partir d'une ligne voulue, avec 
un incrément spécifié au moment de la renu- 
mérotation. Ce programme se charge de gérer 
les GOTO, GOSUB et autres instructions de 
saut. 

Destiné à vous montrer l'efficacité du L.M. ce 
programme n'a pas été complètement opti- 
misé. Pour commencer vous pourrez essayer 
de le réduire d'environ 1 5 octets, opération 
facile ne nécessitant pas un trop gros travail. 
Dans sa version actuelle le RENUMBER occupe 
360 octets. Pour charger ce programme en 
mémoire sur un PC-1251 : utiliser le pro- 
gramme de désassembleur fournit dans le der- 
nier numéro et utiliser l'option C (rentrer tel quel 
le programme annexe 1 ). Sur un PC-1245 : ren- 
trer le programme à la main (POKE commence 
en C000), pour exemple : &C460 (adresse du 
début du programme possible en donnant cette 
adresse). Si vous le désirez ce programme peut 
être implanté ailleurs en mémoire, il suffit de 
le mettre où l'on veut puis d'exécuter le pro- 
gramme RELOGEUR REN en indiquant l'adresse 
où l'on a mis le RENUMBER (programme RELO- 


GEUR REN annexe 2). 

Pour faire fonctionner le programme, on met 
dans la variable A le nouveau numéro de ligne 
de départ du programme, c'est donc une valeur 
comprise entre 0 et 1 000 exclus. On met dans 
la variable B l'incrément entre 2 numéros de 
ligne ; c'est une valeur qui devrait être com- 
prise entre 0 et 1 00 exclus. Puis, on fait CALL 
adresse début du programme soit ici CAL & 
BFOO 

ATTENTION : Ce programme ne teste pas tou- 
tes les bêtises que vous pourriez faire. Ainsi 


un A ou B alphanumérique ou un envoi à un 
numéro de ligne inexistant provoque un mes- 
sage d'erreur, mais le programme sera peut- 
être en pagaille. De plus un A ou un B négatif 
provoque souvent un ALL RESET. 

N'essayez pas de faire non plus de combinai- 
son A et B qui mènerait à une numérotation qui 
dépasserait 999. 

Ce programme renumérote toutes les structu- 
res GOTO THEN GOSUB RESTORE simple ou 
répétitives (ON A GOTO...,...,...). 

Les labels ou les expressions calculés seront 
laissés tel quel (voir 1 ere ligne de l'exemple 
annexe 3). 

Cas où la renumérotation ne s'effectuera pas : 
structure IF THEN GOTO remplacez cette struc- 
ture par IF GOTO ou IF THEN. 

Pour vous permettre de mieux comprendre ce 
programme vous en trouverez en annexe 4 l'or- 
ganigramme, et en annexe 5 le listing 
commenté. 

De plus voici dans l'ordre d'apparition dans le 
programme la signification des CAL ROM CPU. 


CAL 

SIGNIFICATION 

EXPLICATIONS 

118F 

X < - START BASIC 

met dans le registre X le contenu de C6E3, C6E4 

1200 

[(IC), (1D) ]< -X 

sauve en Xen[(1C), (1D)] X H -> (1D)XL -> (IC) 

15A3 

Interprétation 

numérique 

Interprétation d'un numéro pur si X pointe sur un 

numéro, il sera interprété et stocké au format variable de 20 à 27 

et X pointera sur le dernier caractère de la valeur interprétée. Si on 

pointe sur un label ou une expression numérique il ne se passera 

rien. 

1 ACF 

<-> [(1CM1D)] 

échange X L et (IC) X H et (1D) 

1177 

Y< - X 

copie X dans Y 

1195 

<-> [(OCMOD)] 

échange X. et (OC) et (OD) 
met dans X ce sur quoi pointe DP 

1192 

X<- [(DPMDP + 1)] 

1172 

X< - Y 

copie Y dans X 

11F9 

Y<$ adr. buffer-1 

met dans Y < -C7CF adresse du buffer disp - 1 

1 1 AF 

Affich. 

routine d'affichage du contenu du buffer 

UEO 

DISP ON 

Allumage de l'affichage 

1D23 

INP KEY 

—sa : 

attend jusqu'à la pression d'un caractère 




ANNEXE 1 


J jj in P P r.j : j r. g ç p 

B F 0 0 - 1 8 2 *=5- 6 T FF38 3887 
3F08 3738 0F67 3838 0367 
3F10 DF38 0767 9238 0323 
BF18 16^2 00F5 A324 78C0 
BF20 003A 0324 78C0 002B 
BF28 0567 1339 1323 2C78 
3F30 C00F 78C0 2124 67FF 
3F38 3897 67E8 3B08 A2C7 
3F40 288A 2450 C728 85B0 
3F48 5964 4FB4 DBB1 5964 
BF50 F065 0458 B5D3 3159 
3F58 640F 6540 B6DB B723 
BF60 3303 0234 6340 2803 
3F68 0003 0201 3437 1B2F 
BF70 83C3 2310 3A58 A145 
SF78 3058 BBFA CF3A 0828 
3F80 3124 3419 2362 F177 
3F88 F 195 10C6 E3F1 9202 
3F90 FF26 F177 A123 3345 
BF98 3358 0300 3614 02FF 
3FA0 0726 7800 5025 67FF 
BFA3 3304 2723 07F1 9523 
3FB0 2 p Fl 77F 1 95F1 72A1 
3FB8 5958 0300 8414 2426 
3FC0 67F- 2905 7800 5CF1 
BFC8 9523 4973 BFF5 2B9A 
BF30 F1F9 0296 2623 26F1 
BF38 AFF: £0FD 2337 7300 
BFE0 2124 67-F 380F 67E0 
3FE8 3308 3053 5004 5378 
3FF0 3FF5 2312 373* 3259 
3FF3 5100 0000 2304 5B37 
0000 6713 380A 6713 3806 
0008 6700 3802 3730 37A1 
0010 0220 3345 3353 3*00 


0818 01A2 102F 05A2 61E0 
0020 3738 1321 0002 0810 
0028 0690 A000 0F18 A063 
0030 ^538 2578 000F A359 
0038 3233 A013 2300 0703 
0040 A063 F538 1378 008F 
0048 3013 2280 0103 Al 13 
0058 3800 0208 F18F 3753 
0058 5379 BFB0 1006 E386 
0060 5952 8759 11E4 5237 


ANNEXE 2 

RELOGEUR REN 
10SÎNFUT '’SDR: “ 5 A 
20! FOR Î=1 "0 12: ‘REA3 
3»C:B= INT <(A+C)/25 
6 .î » PUKt A+B»3» UA+O 
-2563: NEX T I 
30 : hND 

40: BATA 31 » 256» 37? 256» 4 


S » 27 1 » 5 1 » 289 j 163» 348 
» 197» 348» 204» 245» 223 
» 239» 240» 245» 308 
50: BATA 27 1 » 326» 271 » 346 
» 208 


ANNEXE 3 Exemple 

1 : 0 1 '* A G0 T 0 2 » 3 » 2 * » 5 » 
2*3» 6 

2: RESTORE 1 
3:1- A=2 ■ hen 4 
4: G0SU3 V :T 
5: ' , 2 V G0SÜ3 6 
6:RETURN 


7 J. im. 

-90: RES' 

100: IF f 
1 1 0 : GOSL 
120 : T 
130: RETU 


A=10 3= 

10: ON A 
30» 2* 


15: RESTt 
20: I- A- 
25 : GOSUï 
30: "Z* i 
35: RETU; 


ANNEXE 4 


DEBUT 






ANNEXE 5 


B p 00 Fi 

CAL 1 

18F 

On met dans X l'adr où commence la zone pgm 

3F02 24 

;xl 



3F03 67 

CP 18 

“C 

On regarde s'il y a un FF 

3F95 38 

JRZP 

38 CBF3£) 

Si oui fin de scrutation de cette zone, on va en BFDE 

BF87 67 

CP 18 

37 

On regarde si on a GOTO 

BF09 38 

JSZP 

0F C3F19) 

Si oui on va BF 19 

3F0B 67 

CP 18 

38 

On regarde si on a RESTORE 

BF03 38 

JRZP 

03 (BF19) 

Si oui on va en BF 19 

BF0F 67 

CP 18 

DF 

On regarde si on a THEN 

BFil 38 

JRZP 

87 <3 C 19> 

Si oui on va en BF19 

BF13 67 

CRIA 

92 


3F15 38 

JRZP 

03 <BF19) 


3F 17 23 

JR* 

16 CBF02) 

Autrement, on retourne en BF02 

3F 19 F2 

C8L I 

208 

Sauve X en ([IC], [10]) 

3F13 F5 

C8L I 

5A3 

On interprète le paramètre suivant les fcts citées 

BF1D 24 

:xl 


On charge dans A le caract. qui suit ce qui a été interprété 

3F 1E 78 

C8Ll 

C 0 0 0 

On regarde si on a une fin de zone (:, ou ENTER) 

3F21 3A 

JR CP 

0D (3F2F) 

Si l'interprété est bon, on va en BF2F 

3F23 24 




BF24 78 

C8lL 

C 0 0 0 


3F27 23 

JRNCM 

05 (BF23) 

On boucle jusqu'à l'arrivée en fin de zone de traitement) 

3F29 67 

CP 18 

13 

On regarde si on a une « , » 

3F23 39 

JRZW 

13 <BF19> 

Si oui on recommence une interprétation de ce qui suit 

BF2D 2D 

JRI*! 

28 (3F02) 

Autrement on va à la recherche d'un mot clef 

B h 2. ’r 7 y 

C8LL 

C00P 

Récupération d'un argument sous forme d'un N° ligne 

3F32 78 

C8LL 

8021 

Récupération des arguments stockés dans A et B 

3F35 24 

IXL 


On regarde le caractère suivant 

3F36 67 

CP 18 


A-t-on fini de scruter la zone pgm ? 

3F38 38 

JRZP 

97 (BFD0) 

Si oui on va en BFDO, car le N 0 de ligne recherché n'existe pas 

BF3A 67 

CP 18 

E0 

A-t-on un numéro de ligne ? 

3F3C 33 

JR CM 

08 <BF35> 

Non on continue, on va en BF35 

3F3E 82 

lP22 



3F3F C7 

CPM8 



BF40 28 

JRNZP 

88 <BFCB> 

On regarde si les numéros de ligne sont identiques 

3F42 24 

IXL 


(numéro trouvé = numéro recherché) 

BF43 58 

INCP 


Si identiques, on continue 

3F44 87 

CPM8 


Si différents, on va en BFCB 

3F45 28 

JRNZP 

85 (BFCB) 


3F47 30 

TJ C i O C .Q 

lP30 

; hrt 



* t 

BF49 6* 

jj : 

AN 18 

4F 


3F43 34 

LP34 


Convertit le numéro de ligne stocké 

3F4C DB 

EX8M 


en [30], [31] en binaire, en un numéro en 

BF4D 31 

LP31 


code caractère par chiffre de [34] à [37] 

BF4E 59 

LD PI 



3F4F 64 

8n 1 8 

F0 


3F51 65 

OR 18 

04 


BF53 58 

SUR 



3F54 35 

LP35 



BF55 33 

EX8M 



BF56 31 

LP3I 



BF57 59 

LDM 



BF58 64 

AN 1 8 

0F 


BF5A 65 

OR 18 

40 


BF5C 36 

WSS8BÈ 



3F53 33 

EX8M 



3F5E 37 

LP37 



BF5F 23 

LDS 




BF60 

33 

EXAM 



BF61 

03 

LIB 

02 


BF63 

B4 

LP34 



3F64 

63 

C P T M 

40 


B F 6 6 

28 

JRNZP 

0D 

(BF74) 

BF68 

88 

LU 

83 


3F6A 

02 

LIA 

81 


3F6C 

34 

DO' 



BF6D 

B7 

LP37 



BF6E 

13 

SLW 



BF6F 

2F 

LOOP 

03 

(BF6D) 

BF71 

C3 

DECB 



3F72 

23 

JRM 

19 

(3F63) 

BF74 

DA 

EXAB 



BF75 

58 



■Bl 

BF76 

Al 


WÊ 


BF77 

45 


Jm 

Hii 

BF7S 

30 

LP00 

mm 


BF79 

58 

SWP 

WM 


3F7A 

DB 

EX AM 



BF7B 

FA 

CAL 1 

ACF 


BF7B 

3A 

J R CP 

08 

(BF86) 

BF7F 

28 

JRNZP 

31 

(BFBD 

BFS 1 

24 

XXL 



3F82 

B4 

LP34 



BF83 

19 

EXWB 



BF84 

23 

JRM 

62 

CBF23) 

BF86 

PI 

CAL 1 

177 


BF88 

Fl 

CAL 1 

195 


BF8A 

18 

U IP 

C 6 E 3 

BF8B 

Fl 

CAL 1 

192 


BF8F 

02 

LIA 

FF 


BF91 

26 

IYS 



3F92 

Fl 

CAL 1 

177 


3F94 

Al 

LP21 



BF95 

23 

LDS 



BF96 

DB 

EXArt 



BF97 

.45 

S3M 



3F98 

DB 

EXAM 



BF99 

58 

SWP 



BF9A 

03 

LIB 

00 


BF9C 

86 

LP06 



BF9B 

14 

A il B 



BF9E 

02 

LIA 

h i - 


BFA8 

07 

DY 



BFA1 

26 

IYS 



BFA2 

78 

CALL 

C05C 

BFA5 

25 

DXL 



BFA6 

67 

CP IA 

FF 


BFA8 

38 

JRZP 

04 

<BFAD) 

BFAA 

27 

DYS 



BFAB 

23 

JRM 

87 

<BFA5> 

BFAD 

Fl 

CAL 1 

195 


BFAF 

23 

JRM 

2F 

< BFS 1 > 

3FB1 

Fl 

CAL 1 

177 


BFB3 

Fl 

CAL 1 

195 


BFB5 

Fl 

CAL 1 

172 


BF37 

Al 

LP21 



BFB8 

59 

LBM 



3FB9 

53 

SWP 



BFBA 

03 

LIB 

00 


BFBC 

84 

LP04 



BFBD 

1* 

ADB 




B < — 2 nombre maximum de décalage 
P ■ « — 34 on pointe sur le 1 er caract. du nbre à mettre ds le pgm 
Si c'est un 0, on va en BF74 


On décale le nombre qui est de [34] à [37] 
d'un octet vers la gauche 
On décrémente B (le compteur de décalage) 
et on retourne en BF63 tester le 1 er 
caractère de ce nombre 

On sauve B dans A 

On échange A5-8 et A1-4 (car l'expos est ds le P F) 
On pointe sur l'exposant du nombre recherché 
On les soustrait 
On pointe sur I 

On remet A dans un sens normal 

On met dans I le résultat de la diff. des 2 exposants 

On récupère X pointant sur le mot clef 

Si carry, alors nouveau N 0 plus petit que l'ancien 

Nouveau N° plus grand que l'ancien 

On pointe derrière le mot clef 

On pointe sur le nombre à copier 

On copie ce nombre dans la zone pgm 


On diminue la mémoire pgm 
car le nouveau numéro de ligne 
est plus petit que l'ancien en 
nombre de caractères 


On augmente la mémoire pgm 
car le nouveau numéro de ligne 
est plus grand que l'ancien en 
nombre de caractères 
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24 
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26 
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67 
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FF 
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29 
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05 

(BFBE) 
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78 
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Fl 
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BFC9 

23 

J RM 

49 

(BF81) 

BFCB 

78 
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3FF5 

B F CE 

23 
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9A 
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3FD0 

Fl 
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3FB2 

82 
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BFD4 

26 

IYS 



BFB5 

23 
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26 
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1 AF 


3F39 

Fl 
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1 £8 


BF3B 

FD 

CAL 1323 


3F33 

37 
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BFDE 

78 
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C82 

J. 

3FE1 

24 
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BFE2 

67 
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BFE4 

38 

JRZP 

8F 

CBFF4) 

BFE6 

67 
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BFE8 

33 
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08 
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BFEA 

B 8 
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BFEB 

53 
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50 
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04 

IX 
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78 
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B FF 
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23 
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■r --t 
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BFF4 

37 

RÏN 



BFF5 

34 

P U S H 



BFF6 

32 

lP32 



BFF7 

59 
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B FFS 

51 

DECP 



BFF 9 

88 

L 1 i 

00 


BFF3 

80 

ABN 



BFFC 

23 

LBS 



B F F D 

04 
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BFFE 

5B 
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BFFF 

37 
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C908 

67 

CPIA 

13 


C082 

38 

JRZP 

8 A 

(C883) 

C804 

67 

CPIA 

13 


C806 

38 

JRZP 

86 

< C 8 8 D ) 

C088 

67 

CPIA 

00 


C80A 

38 

JRZP 

02 

(C00IO 

C88C 

37 

RTN 



C08D 

38 

SC 



C00E 

37 

RTN 



C80F 

Al 

LP21 



C010 

82 

lIA 

20 


C 8 1 2 

3 B 

EXAM 



C 8 î 3 

45 

SBM 



081 4 

3B 

EXAM 



0815 

58 

SUR 



0816 

34 

30 



0817 

88 

LI I 

01 



C019 A2 LP22 
C01 A IC SRW 
C013 2F LÜOP 
C01D A2 lP22 


On incrémente le nouveau N° de ligne 

Et on retour ne à la recherche du N° suivant à comparer 

Routine d'ERREUR 
Affiche le mot ERREUR si on a un 
numéro de ligne inexistant ou une 
variable A ou 6 alphanumérique 


Récupération des arguments 
On regarde le caractère suivant 
Est-on en Fin de pgm ? 

Si oui on va en BFF4 
A-t-on un numéro de ligne ? 

Non, on va en BFE1 on continue la scrutation 

On copie le nouveau numéro de ligne 
en mémoire pgm 


On incrémente le nouveau numéro de ligne 
On recommence 


Incrémente le nouveau numéro 
de ligne de l'incrément spécifié 


A-t-on une‘« , » ? 

Si oui, on va en COOD (C 1 et on revient) 
A-t-on un « , » ? 

Si oui, on va en COOD (idem) 

A-t-on « ENTER » ? 

Si oui, on va en COOD (idem) 

On revient avec C 0 
C 1 


Le CAL 1 5A3 a interprété ce qui se trouvait 

derrière le mot clef. Si l'argument était purement numérique, alors il a été stocké 
dans la zone mémoire CPU allant de [20] à [27] 

Ce sous-pgm se charge de le transformer en 
une structure numéro de ligne : Exxx 
Ce sous-pgm sert aussi, lors de la saisie des 
variables A et B 


05 (C017) 



C01E 

61 

0RIP1 

E0 

C020 

37 

RTN 


C02i 

B3 

LP38 


C822 
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lzq 

21 

C024 

00 

LU 

82 

0026 

08 

rivu 


C027 

10 

U DP 

0690 

C02A 

m 

LP20 


C02B 

00 

Ll I 

0F 

C02B 

13 

HVWB 


C02E 

h8 

lP20 


C02F 

63 

cp i n 

F5 

0031 

33 

JRZP 

25 (0057) 

0833 

73 

CALL 

C00F 

0836 

A3 

LP23 


C037 

59 

LIiM 


C038 

B2 

LP32 


0039 

DB 

EX AM 


C83A 

A0 

LP29 


C03B 

13 

LlQ 

23 

C03D 

00 

L î 1 

87 

C03F 

98 

MVUl 


0048 

H0 

LP20 


C 0 H» 1 

63 

cpiw 

F5 

0043 

38 

JRZP 

13 (0057) 

0045 

78 

CALL 

000F 

0048 

30 

LP38 


0049 

13 

LIS 

22 

C0dB 

00 

: T T 

Lii 

01 

0043 

08 

iww 


C04E 

Al 

LP21 


004F 

13 

LIS 

33 

0051 

00 

i 7 7 

02 

0053 

08 

MVU 


0054 

P 1 

CAL 1 

18F 

0056 

37 

RTN 


0857 

53 

PijP 


0058 

5B 

POP 


0859 

79 

JP 

3F00 

0050 

10 

UDF 

C6E3 

C05F 

36 

LP06 


0060 

59 

LDfl 


0061 

52 

STB 


0062 

87 

LP07 


0063 

59 

LDrt 


0064 

1 1 

LIBL 

E4 

0066 

52 

STI! 


0067 

37 

RTN 



Récupération des arguments 
On sauve le numéro de ligne lu 
enJ38], [39] avec l'exposant 

DP pointe sur B 

On copie B dans la zone CPU allant de [20] à [27] 
et A[28] à [2F] 

On regarde si B est alphanumérique 
Si oui erreur, on va en C057, 

On transfor me ce qui est en B en un N 0 de ligne 

On récupère ce qui est en [23] et on le sauve 
en [32] : C'est la valeur d'incrément des lignes 

Puis on met A dans la zone allant de (20) à (27) 


On regarde si A est alphanumérique, si oui 
erreur et on va en C057 
On transform e A en un N 0 de ligne 

On copie A (N° de ligne) 
en (30) et (31) 


On récupère en (21) (22) le N° de ligne à 
rechercher, avec l'exposant 

On recharge dans X l'adr du début de la zone pgm 
On revient 

On récupère l'adresse de retour du sous- 
pgm d'erreu r car A ou B était alpha 


Réinitialise le pointeur de fin de pgm 


Résumons les trois cas généraux : 


î. PRINT d'au plus 80 caractères et au moins 25, avec WAIT (sans n) 
RK]: arrêt du LM et du basic avec message BREAK 


ENTERl : arrêt du LM avec exécution de la suite dupgm basic. 
B : défilement pas à pas avec autorépétition 

Exemple : 

1 0: WAIT 0: PRINT 80 car max: WAIT : CALL adr LM 
2. PRINT d'au plus 80 car et au moins 25, avec WAIT n 


BRÎ(| : arrêt du LM et du basic avec message 


lENTERl : arrêt du LM, exécution de la suite du basic 
B : défilement très rapide 

SPC : arrêt momentané du décalage ; tant que la touche est enfoncée. 
Exemple : 

10: WAIT 0 : PRINT 80 car max: WAIT n: QALL adr LM 
3. PRINT de moins de 25 caractères avec ou sans WAIT (avec ou sans n) 


BRK] : arrêt LM et basic ; message 


lENTERl : arrêt du LM et suite du pgm basic. 
Exemple : 

10: WAIT 0: PRINT moins 25 car: WAIT(n): 
CALL adr LM 

l'instruction WAIT est dans ce cas facultative 
(et le pgm aussi si le LEN de l'affichage est 
connu). 


DISP 


Voici un petit programme en LM ESR-H sur PC 
1 251/45 qui je pense vous sera bien utile. En 
effet, il se propose d'afficher en les décalant 
lors d'un PRINT, tous les caractères tronqués 
jusqu'alors. 

Il est relocalisable et occupe 1 28 octets. Et 
comme vous pourrez le constater, il est doté 
de perfectionnements agréables grâce à la ges- 
tion d'au plus 4 touches. Afin d'entrer dans le 
vif du sujet, je ne vous rappellerai pas la pro- 
cédure avec ou sans le moniteur du n° 8, pour 
entrer un pgm LM dans le PC. Ou sa gestion 
sur K7 à l'aide des commandes CS. M et CLO. 
M, maintes fois décrites. 

Le pgm tient compte de tous les cas de figu- 
res : PRINT =LPRINT, WAIT avec ou sans opé- 
rande. Il permet le contrôle du défilement par 
appui de touche et de la vitesse par WAIT n: 
0<n< 65535. 

On peut donc facilement régler la vitesse du 
décalage, le stopper, l'accélérer, Breaker tout 
le pgm, ou passer à la suite du pgm basic prin- 
cipal avant la fin du défilement. Si on a moins 
de 25 caractères, pas de disp possible, et l'on 
peut aussi défiler pas à pas dans le sens d'un 
WAIT. 

Seul a été délibérément omis le décalage 
inverse, c'est-à-dire de la gauche vers la droite, 
pour gagner des octets. Si le cœur vous en dit... 

Avec les exemples donnés, vous avez pu obser- 
ver la syntaxe. Je conseille fortement l'emploi 
du WAIT 0 pour éviter un tressautement lors 
du PRINT, le CALL venant après. Le passage 
des paramètres de vitesse est transmis par le 
second WAIT. Je signale aussi que la touche 
CL est inopérante dans tous les cas de 
figure sauf ruse vicieuse. La plupart des tou- 
ches de contrôle étant à répétition automati- 
que et instantanée, dernière recommandation : 
poussez un peu le contraste. 

Et maintenant, ouvrez les yeux et à vos PC. 

J.F.V. 
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(BF7F) 
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BF18 

F F 

CAL 
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3F12 

67 

CPI A 

87 


BF14 

33 

JRZP 

65 

(BF7A) 

BF16 

67 

CPI A 

00 


3F18 

38 

JRZP 

64 

<3F7B> 

BFiA 

23 

J RM 

8B 

(BF10) 

BF1C 

Fl 

CAL 

1 19A 


3F 1E 

24 

IX L 



3F i F 

A0 

LP28 



BF28 

80 

L 1 1 

17 


BF22 

18 

MVl'iB 



3F23 

57 

LDB 




teste si on a PRINT = LPRINT 
Si oui RTN 


regarde si on a moins de 25 caractères 
sinon exécute un disp n 
LCD ON 

scrutati on du clavier 
texte si |BRK| 

SI OUI RTN ave c (BREAK IN) 
teste si lENTERl 
si oui LCD OFF ; RTN 
si aucune de ces touches : Boucle 

charge dans X adr-1 buffer out 
incrémente 

charge les 24 registres [20] à [37] 
avec le contenu du buffer à 
partir de l'adr pointée dans X 














METTEZ VOS BOUCLES AU PAS 


Suite à l'article sur la boucle FOR/NEXT du 
numéro 8, voci deux petits programmes qui 
exploitent des possibilités entrevues lors de cet 
article, et inexploités dans le PC 1251 ; cen- 
sure ou bogue ? 

Le premier programme est en LM ESR-H, 
rapide, concis (25 octets), il comporte néan- 
moins l'inconvénient d'être plus hermétique à 
la compréhension de tous, de plus, il faut res- 
ter prudent quant à son emploi - risque de 
plantage si il est effacé - contrairement à son 
homologue en basic. 

Mais quelle est donc cette amélioration ? 
Suspense. 

Allez, je vous le dis : il permet d'utiliser comme 
incrément (STEP) n'importe quel nombre, déci- 
mal ou un quelconque réel. 


J'exposerai simplement ici son utilisation, le 
principe du pgm étant assez simple. Vous pou- 
vez présenter vos boucles comme indiqué dans 
les fig. 1, 2 ou comme sur la fig. 1 bis. Mais 
il est important de respecter deux contraintes : 

• L'incrément doit être stocké dans la var A, 
donc ne surtout pas utiliser l'instruction STEP. 

• Le CALL ou GOSUB doit être la première ins- 
truction dans la boucle, et la suite de ladite bou- 
cle doit figurer sur la même ligne que CALL ou 
GOSUB. 

De plus il est utile de savoir que le pgm LM est 
entièrement relogeable et le basic MERGEable 
à volonté. 

La boucle est alors bouclée. 
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BF12 
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échange Ram interne avec ancien 
incrément 

3F 14 

1 9 

p r y d 
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84 
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mise à jour de X 

BF16 
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AD IM 

07 


BF18 
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BF19 
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07 
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BFÎC 

52 
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de boucle 


BF1D 2A JRnC? 05-(BF23) 
3F1F 04 IX 
BF20 57 LBB 
BF21 42- InCA 
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1 5 y , j 

84DB 
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50.D3 

04ft0 

1984 

7887 

3F 18 

8457 

7407 
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8584 

3F20 

5742 
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y 8 y y 
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996; ‘'3 "3= PEEK &C6F3-12+ 
10700:0=10698 
997; POKE 3» PEEK C:3=B+1 
:C=C+l: IP CK&C6A0 
GOTO 997 

998: C* PEEK B: 0=0+5: IF 
0255 lET 0=0-255: 
POKE B+i» PEEK 

999: POKE 3*0: RETIJRK 
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FOR ï =0 Til 2: 

&BF00* PRÏN7 T; 




1 0 ï A= - 1 - FOR 
20; Chu- SBF08 


0 T u 2 
REf FTf: 


fig.l bis 


18 ; A=. ï ; for 1=0 ïü 

GOSUB V 3 V : PRJNT 
NERÏ I 
20; END 


fig-2 


retenue 



JEU DE SIM 
A 8 POINTS 


En fin un jeu de réflexion en LM ESR-H sur PC 
1251/45. 

Ce programme hybride comprend une partie 
principale en basic, et un algorithme entière- 
ment en LM pour la vitesse d'éxécution. 

Le programme est limité à 8 points pour ce jeu 
de SIM. En effet, au départ il y a 28 coups joua- 
bles possibles, et le PC met moins de 2 sec. 
pour donner les 3 premiers, alors qu'en basic 
il faudrait 5 mn. 

En simplifiant la théorie, chaque coup licite est 
évalué en comptabilisant - le coup étant joué 
- ceux qui restent possible au PC moins ceux 
qui resterait possibles à son adversaire. A cha- 
que coup joué par la machine, la valeur V est 
affichée. Si elle est positive le PC gagne, si elle 
est négative il perd. 

Si n coups arivent à égalité, l'ordinateur choi- 
sit au hasard parmi les meilleurs coups (ayant 
la meilleure valeur). 

Pour jouer, il suffit de répondre aux questiions 
posées, les coups étant saisis par un INKEY$ 
amélioré façon GET. Si on ne sait que jouer, 
taper 0 et la machine suggérera un coup joua- 
ble... on annoncera la défaite. 

Pour adapter ce pgm au PC 1 245 (ou le relo- 
ger), se servir du relogeur basic fourni, en fai- 
sant attention à garder les mêmes poids faibles 
aux adresses. Relogez en XX20. Evidemment, 
il faut modifier en conséquence les adresses 
dans le basic. (Voir relogeur dans n° 9). 

G. NICOLAS 


S:"* Slit A .8 JOINTS ** 
6 î ’<C) GILLES NICOLAS 1 ' 
18 SCALL & 3 E 20 
20 s INPUT "TU COMMENCES 
?<0/N) u ? Zs 

30 : IF Z*=’N* TH£N 98 
40 : !$="": WAIT 0 


425 PR INT *A TOI DE JOUE 
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Dans tous les cas de figure, les calculs néces- 
sitent la connaissance préalable : 

• de la déclinaison et de l'angle horaire de l'astre 

• des corrections à apporter à la mesure sextant 


Un relevé sextant permet, toutes corrections fai- 
tes, de mesurer la hauteur d'un astre au-dessus 
de l'horizon (taie). Nous appellerons cette hau- 
teur S. Sachant que la terre est ronde, il est évi- 
dent qu'à un instant donné il n'y a pas qu'un 
seul point sur la terre d'où l'on voit cet astre à 
la hauteur S en-dessus de l'horizon. En effet (cf. 
fig. 1 ) en tous les lieux situés sur un cercle jus- 
tement appelé cercle d'égale hauteur, on mesu- 


rerait la même hauteur S. Ce cercle admet pour 
axe la droite qui joint le centre de la terre à celui 
de l'astre. 

Le « point » astronomique situe donc l'obser- 
vateur sur un cercle, ce cercle est défini par son 
centre et son rayon (cf. fig. 2). 

• le centre est repéré par deux angles qui sont 
l'angle horaire (AHo en français, GHA en anglais) 
et la déclinaison (déc.). 

• le rayon est égal à l'angle complémentaire du 
sextant (90-S). 





Figure 3 : Construction de la droite de hauteur. 
Pour un point estimé de longitude X et de lati- 
tude Y, le calcul donne : 

• l'Azimuth A (direction de l'astre par rapport 
au nord, 

• l'Intercept I (porté vers l'astre si I est positif, 
en sens inverse si I est négatif). 

Cette construction situe l'observateur sur une 
droite de hauteur ; cette droite constitue géné- 
ralement une approximation suffisamment 
bonne du cercle. 


LONGITUDE 


Figure 1 : Cercle d'égale hauteur. En tous les Figure 2 : Représentation plane (sur une carte) 

points du cercle un observateur mesurerait la du cercle d'égale hauteur; Un « POIMT » astro- 

même valeur S pour la hauteur de l'astre au- nimique situe l'observateur sur un CERCLE, 
dessus de l'horizon. 



TRACE SUR LA CARTE 

La méthode classique (Intercept et Azimuth) 
consiste à estimer sa propre position (latitude 
et longitudes estimées) et à tracer une portion 
du cercle d'égale hauteur par rapport à ce point 
(cf. fig. 3). 

Le cercle est localement assimilé à une droite 
(la fameuse droite de hauteur). Cette construc- 
tion nécessite de reporter sur la carte : 

• le point estimé (lattitude et longitude) 


perpendiculaire à l'Azimuth (ne pas oublier). 
Cette possibilité est incluse dans le programme, 
mais nous proposons une méthode beaucoup 
plus simple : pour une latitude donnée, la cal- 
culatrice donne les deux longitudes possibles (cf. 
fig. 4). L'estime permet généralement de trier 
entre les deux longitudes proposées, mais dans 
les cas extrêmes (astre proche du sud local), les 
deux longitudes peuvent être portées sur la 
carte. 

A l'aide d'une deuxième latitude (demandée 


Figure 4 : Tracé du cercle d'égale hauteur. A 
chaque latitude correspondent deux longitudes. 
L'estime et l'azimuth permettent de déterminer 
la longitude adéquate sauf dans des cas extrê- 
mes où justement il vaut mieux représenter le 
cercle que la droite de hauteur qui devient alors 
une mauvaise approximation. 

Le programme demande deux latitudes. Si on 
voulait tracer la totalité du cercle il suffirait de 
repasser le nombre de fois voulu sur la ligne 1 00. 


LE SOLEIL 


• un angle (l'Azimuth A qui est la direction de 
l'astre par rapport au nord). 

• une distance (l'Intercept I qui représente la dif- 
férence entre la valeur corrigée du sextant et la 
hauteur calculée de l'astre) 

• et demande de tracer au point ainsi trouvé la 


automatiquement par la calculatrice), on obtient 
deux autres longitudes. Pour obtenir la droite de 
hauteur, il suffit de joindre les deux points cor- 
respondants (cf. fig. 4). Cette construction ne 
demande aucun report d'angle ou de distance, 
une simple règle non graduée suffit. 


Pour le soleil qui est de loin l'astre le plus uti- 
lisé, du moins en navigation de plaisance, le cal- 
cul du point est entièrement programmé. Les cal- 
culs ne sont évidemment jamais parfaits et c'est 
pourquoi nous présentons sur la figure 5 l'écart 
entre les valeurs calculées et les valeurs des 





éphémérides, pour la déclinaison et l'angle 
horaire du soleil, de 1978 à 1984. La déclinai- 
son est donnée avec une précision de l'ordre du 
dixième de minute d'angle soit deux secondes 
de temps. 

Ces écarts sont dus aux perturbations par les 
planètes, non prises en compte dans le pro- 
gramme. Globalement l'erreur sur le calcul du 
point ne dépasse pas un demi-mille marin. Si une 
mise à jour s'avérait nécessaire pour l'angle 
horaire, il suffirait de modifier très légèrement 
une seule valeur (voir MISE A JOUR). 

LUNE, PLANETES ET ETOILES 

Les éphémérides sont nécessaires pour la lune, 
les planètes et les étoiles (mais ne sont-elles pas 
toujours présentes sur un bateau ?). Les entrées 
demandent un effort réduit au minimum et le 
programme effectue les interpolations nécessai- 
res, ce qui n'est pas aussi évident qu'il y paraît, 
afin d'obtenir la déclinaison et l'angle horaire de 
l'astre. 

REFRACTION, DEPRESSION, ETC. 

Toutes les corrections à effectuer (dépression 


D 

+ 0,1'i w . v 

-0,1* 
+ 0,5' 

+ 1 SEC. 

1EMPS 

SOLEIL 

VALEUR CALCULEE - EPHEMERIDES 

-0,5* 

G V / 

1 1 1 1 1 J 1 1 

1978 79 80 81 82 83 1984 

Figure 5 : Ecarts entre les valeurs calculées par 
le programme et les valeurs fournies par les 
éphémérides pour la déclinaison D et l'angle 
horaire G du soleil. 


de l'horizon, réfraction, demi-diamètre et paral- 
laxe du soleil ou de la lune) sont incluses dans 
le programme pour toutes les hauteurs d'astres 
observables. Les valeurs numériques, notam- 
ment celles de la réfraction ont été prises dans 
l'annuaire du bureau des longitudes. Les deux 
expressions analytiques que nous proposons 
pour la réfraction atmosphérique se raccordent 
parfaitement et s'écartent de la correction idéale 
de moins de 0.05' d'angle dans la gamme de 


hauteur 0 à 90 degrés. 

Il pourrra sembler curieux de donner des correc- 
tions de réfraction pour des visées proches de 
l'horizon, Nous voudrions cependant faire deux 
remarques : 

- Tout d'abord, pour quelle limite de hauteur au- 
dessus de l'horizon fait-il s'arrêter ? 

-Ensuite même si les conditions réelles de 
réfraction s'écartent quelque peu des conditions 
idéales, il n'en reste pas moins qu'un relevé 
obtenu pour des hauteurs faibles est toujours 
mieux que rien (de plus, quoi de plus agréable 
que de relever sans sextant un lever ou un cou- 
cher d'astre). 

Dans le même ordre d'idées, les corrections de 
pression et de température sont généralement 
superflues. Mais il faut savoir qu'aux alentours 
de dix degrés de hauteur elles peuvent repré- 
senter 0.5' d'erreur. De toute façon en l'absence 
de réponse du navigateur, la calculatrice pren- 
dra des conditions moyennes (si vous naviguez 
sur le lac Titicaca entrez quand même la pres- 
sion locale I). 


AUTRES UTILISATIONS DU PROGRAMME 


CALCUL D'UNE ROUTE 

On peut très facilement calculer la distance et 
l'azimuth pour une route. Pour cela faire (en 
mode calcul (RUN) et surtout pas PROGRAM- 
MATION) : 

S = 90 ENTER 

D = DEG (latitude de la destination en 
°.'.") Enter 

G = DEG (latitude de la destination en 

°.'.") Enter 
RUN 100 Enter 

Le programme demande alors la latitude et la 
longitude qui sont celles du point de départ. Il 
donne ensuite les résultats suivants : 

A = CAP DEPART Route orthodromique, en 
degrés décimaux) 

I = DISTANCE (en milles marins) 

CHERCHER LES ETOILES 
ET VERIFIER LES BOUSSOLES 

-Pour fonctionner en chercheur d'étoile, il suf- 


fit d'exécuter le programme, sans répondre aux 
questions relatives au sextant, jusqu'à la ligne 
105 (Azimuth et Intercept). L'azimuth étant 
connu, pour obtenir la hauteur, il suffit d'arrê- 
ter le programme et de demander la variable 
Z qui représente la hauteur (non corrigée) de 
l'astre en degrés décimaux : 

BREAK 
Z ENTER 

En sens inverse, si l'astre est identifié et si la 
position du bateau est bien connue, l'azimuth 
des astres proches de l'horizon peut servir à 
calibrer de façon très précise les compas de 
navigation. 

PASSAGE D'UN ASTRE AU SUD LOCAL 

Pour obtenir l'heure de passage au sud local, 
exécuter le programme en entrant comme 
heure une valeur approximative de l'heure de 
passage sans répondre aux différentes ques- 
tions relatives au sextant. 

Après l'affichage de l'azimuth et de l'intercept, 


exécuter la séquence suivante (en restant bien 
sur en mode calcul ou RUN) : 

BREAK 

H = (H + W - U / 15) / 24 ENTER 

H = DMS (24* (H - INT H» ENTER 

Le résultat affiché est alors l'heure de passage 
en heures, minutes, secondes. Pour une meil- 
leure précision et notamment pour la lune, 
refaire un passage en faisant RUN 10 puis 
ENTER. A la question heure, répondre H (let- 
tre H). 

MISE A JOUR DES EPHEMERIDES 
DU SOLEIL 

Pour recaler l'anglé horaire du soleil, il suffit de 
faire dérouler le programme (sans répondre aux 
questions relatives au sextant) pour la date à 
laquelle on veut coller le mieux avec les éphé- 
mérides nautiques. Lorsque la calculatrice 
demande la latitude, faire : 

BREAK 

G 

ENTER 

On obtient à l'affichage l'angle horaire G du 
soleil en degrés décimaux. Il suffit alors de la 
comparer à la valeur des éphémérides (que l'on 
aura pris soin de transformer en degrés déci- 
maux : attention aux minutes décimales des 




éphémérides nautiques). Si l'écart est trop 
important pour l'utilisation prévue il faut alors 
modifier la valeur de la variable Q ligne 6 : 

• l'augmenter de la différence si G est plus petit 

• la diminuer de la différence si G est plus 
grand. 

La déclinaison est beaucoup moins sensible aux 
perturbations. S'il fallait vraiment la retoucher 
opérer comme précédemment avec la variable 
Y (BREAK Y ENTER) que Ton comparera à la 
valeur donnée par les éphémérides de la décli- 
naison du soleil pour le SOLSTICE le plus 
proche. 

REMARQUES 

Le calcul de la position du soleil est « valable » 
de 1 901 à 2099. A partir de l'année 2000 (I), 
il faut toutefois remplacer à la ligne 8 le mor- 
ceau d'instruction : 

N - 81 
par N + 19 

Il faudrait aussi pour vraiment bien faire modi- 
fier certaines grandeurs telles que l'excentri- 
cité, tenir compte de la rotation du périgée..., 
mais gageons que d'ici là des programmes et 
des machines bien plus astucieux seront à notre 
disposition. 

Afin d'éviter les confusions entre la lettre O et 
le zéro, il suffit de savoir que la variable 0 (let- 
tre 0) n'intervient qu'aux lignes 6 et 40. 

Sur la ligne 46, 5E-6 signifie : 5/1 000 000. 
Ce terme représente le feston dû à la lune. Pour 
être exact il faudrait soustraire la valeur de l'ex- 
pression pour T = P (origine des rotations) mais 
dans notre cas cette correction est inutile 
(0.003'). 

EN GUISE DE CONCLUSION 

Ce programme est optimisé pour le soleil et 
pour une utilisation sur calculatrice SHARP PC 
1211/1212 (1424 pas de programme). Cette 
calculatrice ne demande ni de fermer les paren- 
thèses en fin de ligne, ni de mettre le signe de 
la multiplication entre les variables, ce qui fait 
gagner quelques 30 à 40 pas. Sur les 1 424 pas, 
il en reste encore une trentaine libres, ce qui 
suffit pour entrer la courbe de correction pro- 
pre du sextant (ligne 15). 

Pour ceux qui ne s'intéressent qu'au soleil et 
au seul calcul de Tazimuth et de Tintercept, 
nous tenons à leur disposition un programme 
compact de 750 pas de programme. De toute 
manière n'oubliez pas d'emporter les éphémé- 
rides nautiques avec vous ! 


ENTREE DATE ET DECALAGE HORAIRE 


15 

20 

23 

30 

40 


DONNEES ASTRONOMIQUES 

NOMBRE DE JOURS/ 1981,0 


ENTREE OBSERVATION 


TEMPS LOCAL 

H.MIN.SEC. 

SEXTANT 

0 ' " 

HAUTEUR SEXTANT/EAU 

mètre (sinon 2 mètres) 

PRESSION 

mb (sinon 1013 mb) 

TEMPERATURE 

degrés (sinon 14 deg. C) 

BORD SUP. OU BORD INFERI. TANGENT A L'HORIZON | 


CORRECTION HORIZON 
CORRECTION DE REFRACTION 
INFLUENCE TEMPERATURE ET PRESSION 


SI 


50 

90 

100 

105 

110 


LUNE, PLANETE 


ETOILE 


SOLEIL 

LUNE, PLANETE 
ETOILE 

lEiLir enter: 

ANOMALIES SOLEIL 

PRECESSION NUTATION 

ASCENSION DROITE 

ANGLE HORAIRE (AVEC FESTON LUNE) 

DECLINAISON 

CORRECT. 1/2 DIAM. SOL. + PARALLAXE 


• 60 ENTER 
■ 80 ENTER ■ 


0 < GHA < 360 


1 — 


ENTREE: POINT ESTIME IV."] 

SORTIE : A = AZIMUTH |°|, I = INTERCEPT fl 


A 115 | 

î [ CIA0 ?J 

Lio «. J 


I 


i 60 

PARALLAXE LUNE (') 
CORRECTION PARALLAXE ET 
1/2 DIAMETRE LUNE 
(= 0 POUR LES PLANETES) 


1 “""J 

70 

CONSEIL POUR LE CHOIX DE TU1 

71 

1 

ENTREES POUR INTERPOLATION 
HEURES (H), GHA et DEC 0 .'.'' 

72 

1 

73 1 
75 1 

INTERPOLATION 



ENTREE : DECLINAISON 
ET ANGLE HORAIRE 
1 er JOUR DU MOIS 


□C 


CALCUL ANGLE HORAIRE 81 


ENTREE : LATITUDE « BORD DE CARTE » | 0 .'] 
SORTIE : LATITUDE et I e LONGITUDE | 0 .'.''] 
et 2° LATITUDE I 0 .'."] 

TZ 


1 "N” 

2 INPUT "3ÛUR=" ; 3 /MOIS»" î M , "ANNEE NN=" ; N 

3 INPUT "TEMPS LOCAL -TU =” ; W 

5 C = 23.4420 : E = .016710 : L =77.383 s B = 365.256363 

6 O = 2.088548 : P = 78.71081 î Q = 074.0310 î R = 360 s DEGREE 

8 I = 3 + 31M - 32 -(M>2) * (3 -(INT (N/4) = N/4 )) 

- (M>4) - (M>6) - (M>9) - (M>11) + INT (B*(N-81 

10 INPUT "TEMPS H.MNS =" ; H , "SEXTANT D.MNS = »; S 

11 Z = 2.0 ï X =1013 : Y = 14 î INPUT "HAUT/EAU" ; Z , 

"P(MB)=" ; X,"T(DC)=" ; Y 

12 F = -1 î INPUT "BORD INF = ENTER, SUP = 1 " ; F 
15 H = DEG H - W î T = I + H/24 : S = DEG S 

20 S = S - \T(Z/1136 

21 IF S > 11 LET Z = 1 / TAN S / 61 ï GOTO 23 

22 Z = .61 / (1 + .4S + SS/33 * (l-S/22 

23 S = S - Z X/1013 / (1 + Y/258 

30 INPUT "S0L=ENT,LU=PL=60,ET=80 " ; Z : GOTO Z 

40 FOR Z = 1 TO 4 : U = (T-0)*R/B + ER/27T * SIN U î NEXTZ 

41 V = 2 * ATN (TAN (U/2) * \T((l + E)/(l - E 

43 Z = T - P ï K = 152 - .053T : X = .014 * (Z/B - (SIN K - .53)/3: 

Y = C + .0026 * (COS K -T/20B 

45 K=V-L+X : A=ATN (TAN K * COS Y) + R/2 * (ABS K > 90 

46 G = H/24-P + Z/B + (Q - A + X*COS Y) / R 

- 5E-6 * (SIN (R * (T-5 ) / 29.53 
48 D = ASN ( SIN Y * SIN K 

50 S = S + .267 * (1 + E * COS V) * (COS S / 109 - F)ï GOTO 90 

60 Z = 0 : INPUT "PRLX=" ; Z î S = S + Z/60 * (COS S - .272F 

70 PRINT USING "###.#"; "TU1 < " ; H 

71 INPUT "TU1=" ; K, "GHA1=" ; G, "Dl=" ; D 

72 INPUT "TU2-TU1=" ; Z, "GHA2= ; U, "D2=" ; V 

73 G = DEG G / R : U = DEG U / R : D = DEG D : V = DEG V 

74 U = U + (Z<24 )*(U<G) + (Z=24)*( 1+(U< .1 )*(G> .9)- (U> .9 )*(G< . 1 

75 Z = (H-K)/Z î G = G + Z*(U-G ï D = D + Z*(V-D î GOTO 90 

80 INPUT "3=1 H=OTU D=" -, D, "GHA=" ? G s D=DEG D î G=DEG G 

81 G = G/R + (1 + 1/B) * (3 - 1 + H/24 

90 G = R * (G - INT G 

100 INPUT "LAT D.MNS (N+,S-)=" ; Y, "LONG (0+,E-)=" ; X 

101 V = DEG Y î U = G - DEG X 

102 Z = ASN ( COS V * COS D * COS U + SIN V * SIN D , 

103 A = (SIN V * COS D * COS U - COS V * SIN D) / COS Z 

104 A = SG N SIN U * ACS A + R/2 ï K = 6Û*(S - Z 

105 PRINT USING "imiMf" î " A =" ; A; " I = " ; K 




110 FOR F = 1 T0 2 : INPUT "LATs" ; Y : V = DEG Y 

111 U = (SIN S - SIN 0 * SIN V) / COS D / COS V 

112 IF ABS U > 1 BEEP 5 î GOTO 110 

113 X = G - ACS Ü : Z = 2G - X 

114 X = DMS (X - R*(2X>R : Z = DMS (Z - R*(2Z>R 

115 PRINT USING "JriiS " î Y ; USING"jrlridr.Jf»ltj' , i X i Z : NEXT F 
200 PRINT "CIAO ?" : GOTO 10 


Exemple 

Localité : ANTILLES - Sainte-Lucie • 

Deux-Pitons 

RUN 

JOUR = 31 
MOIS = 12 
ANNEE NN = 84 
TEMPS LOCAL - TU = -4 


TEMPS H.MNS = 16.24.16 

SEXTANT D.MNS = 17.02 

HAUTEUR / EAU — 2 

P (MB) = 1000 

T (DC) = 28 

ENTER 

ENTER 


LAT DMS (N + , S — ) - 13.50 
LONG (0 + , E-) =61.04 

A = 240.1 I = 0.5 
ENTER 

13.50 
61.04 40 


LAT = 

13.50 

ENTER 

LAT = 

14.00 

ENTER 

CIAO? 


170.37 00 


14.00 

61.1035 


-170.42 56 



ASTRONOMIE SOLEIL 

SEXTANT 

INTERPOLATION 

NAVIGATION 



(1-< 50) 

(10, 15, 20.. .23, 50, 60) 

70 -< 75) 

(100-< 105) 




(104,111) 

(80- < 81) 

(110-< 115) 


A 

Ascension droite 



Azimuth 


B 

Année sidérale 





C 

Inclinaison écliptique 
moyenne 1981,0 





D 

Déclinaison 


Déclinaison (TU 1 ) 

Déclinaison 


E 

Excentricité 1990 





F 


Bord sup. ou bord inf. 




G 

GHA=AHo=angle horaire/ 
Greenwich 


GHA (TU1) 

GHA 


H 

1 

Heure d'observation locale 
(10), TU (15) 

Nb jours entiers / 1981,0 





J 

Jour du mois 





K 

Angle de nutation (43) 
Longitude héliocentrique (45) 


TU1 

Intercept 


L 

Longitude périgée 1981 





M 

Mois 





N 

Année (deux derniers chif.) 





0 

Temps périgée 1981 





P 

Temps printemps 1981 





Q 

GHA soleil pour T=P 





R 

360 degrés/tour 


360 

360 


S 


Valeur lue - > Valeurs corrigées 


Sextant corrigé 


T 

Temps d'observation / 1981,0 




U 

Anomalie excentrique 


GHA (TU + ) 

Angle horaire local 


V 

Anomalie vraie 


Déclinaison (TU2) 

Latitude 


W 

Temps local moins temps 
universel 





X 

Précession + nutation 

Pression (mb) 


Longitude estimée 

(100) 


(nutation = 0 pour T = P - > 53) 



1 ere long, possible 

(115) 

Y 

Inclinaison écliptique -vraie 

Température (degrés C) 


Latitude estimée 

(100) 





Lat. « bord de carte » 

(110) 

Z 

Temps/printemps 81 

Hauteur/eau (m) 

TU2-TU1, (T-TU1) / (TU2-TU1) 

Hauteur astre 

(104) 





2 e long, possible 

(115) 








DING DINGING DING... 

Il ne manque plus que le bruit des pièces pour 
que l'on se croit devant une de ces célèbres 
machines à sous. 

Pour jouer, il faut d'abord miser une somme 
allant de 1 à 9 francs puis, pour arrêter les rou- 
leaux, on doit presser les touches R, T, Y (cha- 
que lettre correspondant au rouleau qui se 
trouve au dessus d'elle). On peut si on le désire 
laisser la machine s'arrêter toute seule. 

SIX SYMBOLES SONT PROPOSES : 

Une cloche, une pomme, un citron, deux ceri- 
ses, trois bananes, et une barre. 

On gagne en multipliant sa mise par un coeffi- 
cient qui correspond aux combinaisons 
suivantes : 

• 1000 fois la mise pour 

une barre (R), une cloche (T) et une cloche (Y) 

• 100 fois la mise pour 

une cloche (R), une cloche (T) et n'importe quoi 
(Y) 

• 30 fois la mise pour 

trois bananes (R), trois bananes (T) et n'importe 
quoi (Y) 

• 10 fois la mise pour 

une cloche (R), et n'importe quoi (T) (Y) 

• 5 fois la mise pour 

une barre (R), et n'importe quoi (T) (Y) 

• 2 fois la mise pour 

trois bananes (R), et n'importe quoi (T) (Y) 

• 1 fois la mise pour 

une pomme (R), et n'importe quoi (T) (Y) 


5 : Y = I N T < X / 24.'! X = < X - Y 
+24 ) #6+6 s Y= ( Y+ 1 ' *3- 1 
: b L ü R 3 U R * X i Y ) .' 

FOR !=’ T Q lEN A$:3= 
ASC «ID$ ' A*» I, t 1*5+ 
8JFEE 

6:nAIT 0: RQR J=s TO S 
-4 STEP -l: 6PPINT 
PEEK Jï : nEX t J: 

GPR INT 05: NEXT I: 
RETURN 

5 : V = I N" r rx/24j*8sx=’'* 
-Y*3>*6+6: GCuRSOR ( 


x« Y+7 i : ce» 1 = 1 
,_En 3= ASC «13$ ‘ 
A$» 1 . 1 1 *5+S 5 * 7 FEE 
6:*aI t 0: °0P ;=S ~0 S 

-4 3-rçp QPPlsT 

peek NE:r j: 

GPR I nT 0;: next j; 
PETUPN 


4010: PE 1 ** ++++++++++++ 
4020 SPE"! + JACK t>0 T - 
4030: REN ++++++++++++ 
4040: ClEAP : BI« Jj$<. 2 * 
20 1 p $ f 5 1 + 1 6 : 

RpnBON 

4050 :Cl5 : «h 7 0: 

PPINT " 7-A-C-k. 

P-Q-T » 

4060: p $‘. 0 | = "20" J 37C3E3E 7 
C7820" 

4070: p$\ 1 .> = "3C3C3C3C3C3 
C3C3C" 

4030:P$'2' = '"’3451 p 674ril 


4240ÜF I GCURSOR <49*1 
9>: GPRINT P$« 

VAl «IB! 

1 m 1 = 1-1 : x=x+l : 

IF X=21 uET X=i 
4250: IF j GCURSOR >'63» 1 
9): GPRINT p$( 

VAL MIDI <B$(1>.Y» 
1 ) ) : J=J-Î : Y=Y+i : 

IF Y =21 LET Y=1 
4260: IF K. GCURSOR <77* 1 
9,i : GPRINT R$>: 

VAL MIDI i D$ i. 2 :n Z j 
1 j > : k=k- i : Z=Z+1 : 

42 7 0: IF I >1 AND INk'EV$ 

= "R" LET I = l : 

BEEP 1 

4280: 1° J T PNB I.nkEY* 

= " T " l e t J=1 : 

BEE 0 1 

4290:1° k>1 ANB INKEY$ 

= "Y" LE 7 k = 1: 

BEEP 1 


42840“ 

4090: P$< 3 ; = ,î 38 7 C7B7B7-' ? 

4100: P$< 4 > = " 1S3C7E7E7E 7 
E3C18" 

4 1 1 0 : °$ i 5 > = 70 7 07008047 
37C'70 U 

4120:B$i 0 ■' = w 40514254315 
423523435" 

4130:B$U > = "4505451 5452 1 
541424245" 

4140: B$c 2 J 1 = "31 534504534 
134534534" 

4150: C=30: X= RNB 20: y= 
RND 20: Z= RNB 20 

41 60: LINE (45. 9) -(38» 22 
) » S j B 

4170: °0R 1=0 T0 2: 

1_ I NE (46+1*14» 10"'- 
(59+1*14.21). S. B: 
NEXT l: CURSOR 19. 
2: PRINT "*P! ! se" 

4130: CURSOR 0.3: PR IN” 
"TotQ':": US ING “ît 
#####* !C 

4190: CURSOR 13. 3: 

US ING : PRInT "m, 5 
e< 1-9 )R* 

4200: A= VAL INKEYf : 

IF A=0 OR A>C 
GOTO 4200 

4210:BEEP l:C=C-A: 

CURSOR 6.3: PRINT 
US ING "tttlSttt" ! C 

4220: USING : CURSOR 23» 
3: PRINT STR$ Aï: 
CURSOR 14.2: 

PRINT * 

4230: 1=13: J=14:K=15 


4300: IF I OR j 0R k 



GCr 

0 4248 




43iô: 

: I = X 

-1 : 

if : 

r = 

0 LET 


1=2 

0 





4320: 

: J = Y 

_ 1 « 

i ■ 

IF , 

7 _ 

0 LET 


J=2 

0 





4330; 

: k=Z 

-1 ; 

I- ► 

:; = 

0 LET 


K —2 

0 





4335; 


VAL 

NIB$ 

f D$'i 0 i 


* I * 

1 1 : . 

J= VAL 

«IB$ 


<D$ 

< 1 > • 

» J? i: 

i : 

K = 



VAL 

î ) 

NIB$ <D$ 

2 

1 » K ? 

4340 î 

! Q = 0 
1 

: 1° 1=3 

LET 

‘ Q = 

4350; 

1 

IF 

1=2 

LET 

Q 

=2 


4360; 

IF 

+ _ ■* 
i - 1 

LET 

Q 

=5 


4370; 


1=0 

LET 

Q 

= 10 

4380; 

Wà 

1=2 

ANB 

: . T 

J. 

=J 



LET 

0=30 




4390: 

! IF 

1 = 1 

AND 

I 

=J 



LET 

0=50 




4400: 

IF 

1=0 

AND 

T 

=J 



LET 

Q= I 

.00 




4410: 

IF 

T - ? 

i — i 

AND 

I 

= J 

• 


AND 

i=k 

: LE 1 


Q = 500 

4420: 

IF 

1=0 

AND 

I 

= J 



AND 

I=K 

: LET 

0=1800 

4430: 

CU R 

SOR 

14? i 

î: 




PRINT USING "imt 
" . Q ! : USING : 
CURSOR 23.3: 

PRINT " " . 

4440: C=C+A*Q: BEEP l: 

IF C>0 GOTO 4130 

4450: NAIT : CURSOR 13.3 
: PRINT "+GAHE OVE 
R* M . : END 



Le K-BASIC est un interpréteur 
destiné à la programmation de 
l'ordinateur SHARP MZ-700. 
Il a été obtenu par modifica- 
tion et extension du S-BASIC 
livré avec l'ordinateur et, par 
suite, sera en grande partie 
compatible avec celui-ci. 

Le K-BASIC se présente sous deux aspects : 
• C'est tout d'abord un interpréteur Basic 
« standard », possédant toutes les instructions 
du S-BASIC avec, de plus : 

ELSE pour les tests, 

INKEY et KEY complétant l'ordre GET, 

MAX, MIN, OR, AND, XOR, DIV MODULO, 
ASN, ACS pour les calculs, 

GRAPH, DRAW, POINT sur le semi-graphisme 
sur l'écran, 

SWAP, NULL, COPY pour manipuler des 
tableaux (à moins de 128 dimensions...), 
WAIT et PWAIT pour ralentir l'exécution des 
programmes, 

INVS, INS, STRINGS, INSTR pour manipuler 
des chaînes de caractères, 

VPOS et HPOS pour trouver la position du 
curseur, 


DISP pour afficher, en programme, une ligne 
de programme, 

EVAL permettant d'appliquer l'évaluateur de 
formules au contenu d'une chaîne de caractè- 
res. 

• C'est surtout un interpréteur destiné à écrire 
des programmes selon les règles de la « pro- 
grammation structurée ». Dans ce type de pro- 
grammation, bien connue des utilisateurs de 
langages de haut niveau (comme PASCAL), le 
programme sera construit de façon modulaire, 
chaque module pouvant être mis au point sépa- 
rément. Avec un peu d'habitude, on pourra 
alors écrire de longs programmes, faciles à met- 
tre au point, à modifier et dont la structure (et 
par suite, le mode de fonctionnement) se recon- 
naît au premier coup d'œil sur un listing. Sur- 
tout, on ne trouvera plus ces nombreux GOTO 
renvoyant d'un bout à l'autre du programme 
et le rendant incompréhensible à tout autre qu'à 
l'auteur, et même à celui-ci, quelques mois plus 
tard ! 

Que le lecteur se rassure ! Le K-BASIC permet- 
tant les deux types de programmation, il pourra 
toujours écrire un programme en suivant les 
« mauvaises » habitudes dues à l'utilisation des 
Basics standards, puis le modifier, l'améliorer 
pour lui donner une forme plus structurée. 
Ainsi, petit à petit, il lui sera possible de s'ha- 
bituer à la programmation structurée et de se 
rendre compte de la grande puissance de cette 


méthode de programmation. 

Ce type de programmation est permis par la 
présence de : 

3 types de boucles : 

FOR NEXT 

REPEAT UNTIL 

WHILE WEND 

2 types de tests : 

IF ... ELSIF ... ELSIF ... ELSE ... ENDIF 
CASE. . .OF. ..WHEN. . .WHEN . . .OTHERWISE. . . 
ENDCASE 

(Ces deux structures peuvent s'étendre sur un 
nombre quelconque de lignes) 

2 types de sous-programmes 
(en plus des GOSUB-RETURN) ; 

Les procédures définies par DEF PROC et appe- 
lées par PROC 

Les fonctions définies par DEF FN et appelées 
par FN 

Et permettant toutes deux le passage de para- 
mètres par valeur et par référence avec/bien 
entendu, l'utilisation possible de variables loca- ( 
les par LOCAL. | 

Ces deux structures permettent évidemment j 
la récursivité. | 

(Remarque : DEF FN existe en S-Basic mais ! 
sous une formle beaucoup moins puissante 
qu'en K-Basic). 

Amiens le 1 er septembre 1984 
B.KOKANOSKY 


Voici, présenté par son concepteur, Bernard 
KOKANOSKY, le SUPER BASIC, pour MZ-700. 

Pour vous donner une idée plus précise de la 
puissance et de la qualité de ce nouveau lan- 
gage, nous nous bornerons à vous préciser le 
nom et les possibilités des différentes fonctions 
qui ne possède pas le S-BASIC. K-Basic est dès 
maintenant disponible au club au prix de 1 00 F. 
(cassette + notice + port). 

Est-il utile de vous préciser que la conception 
de ce langage a demandé à son auteur, un tra- 
vail considérable ainsi qu'une parfaite connais- 
sance de la structure de l'interpréteur BASIC, 
et du microprocesseur Z80, et que Monsieur 
Konanowski nous a confié ce logiciel et sa notice 
(+ de 50 pages) dans un esprit totalement 
désintéressé, et dans le seul but de fournir un 
outil puissant capable de tirer un maximum de 


GOTO 

GOSUB 

DISP n 

RETURN 

INREY 

KEY 

ERROR 

ELSE 

RESULT 

BEEP • 

GRAPH 

DRAW 

SWAP 

NULL 

COPY 

EXC 

WAIT 

PWAIT 

LOCAL 

EXIT 


peut-être donné par une fonction que le basic calculera 

aucune limite dans le nombre de sous-programmes imbriqués 

affiche en programme la ligne N° n 

possibilité de RETURN n° de ligne (comme S-BASIC) 

attend l'enfoncement d'une touche en faisant clignoter le curseur 

équivalent du GET, mais à répétition 

structure identique au S. BASIC, mais dans K-BASIC, il y a 59 messages d'erreur 
en français 

utilisé dans la structure IF...THEN...ELSE 

expression : retourne « EXPRESSION » comme résultat d'une fonction FN 

permet la création de sons complexes 

sert à placer un pseudo curseur graphique en (x,y) 

sert à tracer une droite sur l'écran (avec les points « SET ») 

permute les éléments de 2 tableaux 

effacement sélectif des tableaux (X) 

reproduit le contenu d'un tableau dans un autre 

échange le contenu de 2 variables 

instruction de temporisation 

interrompt légèrement le programme après chaque « PR INT » 
permet de sortir d'une ou plusieurs boucles non closes 




r 


possibilités du MZ-700, qu'il en soit ici sincè- 

SPOKE 

permet de colorer des caractères affichés à l'écran 

rement remercié. 

VARTPR 

donne l'adresse mémoire ou se trouve une variable recherchée 

S. BIZOIRRE 

MAX 

A MAX B donne le maximum des 2 variables A et B 


DIV 

A DIV B = INT (A/B) 


INV$ 

inverse l'ordre des caractères d'une chaîne 

* B. Kokanoski est également l'auteur du SUPER 

VPOS 

position verticale du curseur 

BASIC pour MZ-80K, devenu depuis une réfé- 

HPOS 

position horizontale du curseur 

rence sur cette machine, en France et à 

IN§ 

permet d'insérer une chaîne de caractères dans une autre chaîne 

l'étranger. 

INSTR 

recherche une chaîne dans une autre chaîne 

SH 

Sinus hyperbolique calculé par (EXT(X) — l/EXP(X))/2 


CH 

Cosinus hyperbolique calculé par : (EXP(X)+l/EXP(X))/2 


TH 

Tangente hyperbolique par SH(X)/CH/(X) 


ASH 

Argument sinus hyperbolique calculé par : LN(X+SQR(l+XxX)) si X est positif ou 
nul et -ASH(-X) sinon. 


ACH 

Argument cosinus hyperbolique calculé par : LN(X +SÜRIX x - D) 


ATH 

Argument tangente hyperbolique calculé par : LN((l+X)/(l-X))/2 


FACT 

Factorielle. Son argument doit être entier positif ou nul. 


ASTUCES 


LES INSTRUCTIONS 
CACHEES DU S-BASIC 



TRON ET TROFF 

Si tous vos programmes tournent du premier 
coup ces instructions vous seront inutiles. Par 
contre, si vous êtes de ceux qui passez de nom- 
breuses heures à chercher pourquoi telle bou- 
cle ne se termine jamais, ou pourquoi telle varia- 
ble est remise à zéro alors qu'elle ne devrait 
pas TRON vous sera très utile. En effet, sit vous 
entrez en mode TRON, le MZ-700 vous indi- 
quera en permanence quelle ligne il est en train 
d'exécuter. Pour entrer dans un tel mode, ii suf- 
fit de taper TRON, pour en sortir TROFF. 



LES REM 

Vous pouvez, si vous le désirez, les remplacer 
par des apostrophes : c'est plus rapide à taper 
et certaines trouvent que c'est plus joli. 


Ceux d'entre vous qui ont lu le bul- 
letin n 0 8, savent déjà que la notice 
ne mentionne pas toutes les instruc- 
tions JHEX$, BOOT, CLS, etc.). Mais 
depuis, de nombreux SHARPEN- 
TIERS ont fait des découvertes, et 


Exemple : 10 REM BLABLA 
Equivaut à 10' BLABLA. 



LES TESTS 

Les THEN sont superflus dans la quasi totalité 
des cas. 


Ainsi 1 00 IF A = 0 END est tout à fait correct. 
Cependant IF A = 2 B = 3 déclenche une erreur, 
il faut écrire IF A = 2 THEN B = 3 
ou IF A = 2 LET B = 3 



LES RETURNS 

Sortir d'un sous-programme pas un GOTO est 
dangereux (une fois ça va, 1 6 fois bonjour les 
dégâts I). Vous pouvez donc écrire : 
RETURN N° de ligne qui clôt l'exécution d'un 


nous ont écrit, nous pouvons donc 
vous présenter, outre deux nouvel- 
les instructions, des novuelles 
systaxes peur celle que vous con- 
naissiez aéjà. 


sous-programme tout en permettant de reve- 
nir à un endroit indépendant de celui où il a été 
appelé par GOSUB. 



LES PRINT'S 

Plus besoin de « ; », vous pouvez écrire en 
toute tranquillité : 1 0 PRINT TAB (10) « BON- 
JOUR » SPC (8) « ÇA VA ? ». 




Programme pour MZ-80K - MZ-80A - MZ-80B - MZ-700 

FISH est un programme transformant votre MZ en une boîte pouvant con- 
tenir jusqu'à 255 fiches comportant chacune un maximum de 9 rubri- 
ques. Dans ce 'répertoire, vous pourrez entrer, classer, modifier, trier, 
effacer, tout ensemble de produits demandant une consultation rapide : 
livres, disques, relations, programmes, élèves, etc., etc. 

Après le RUN, FISH vous demandera si vous voulez utiliser un fichier déjà 
existant sur cassette, ou si vous désirez en créer un nouveau. Dans ce 
cas, il vous faudra initialiser ce nouveau fichier (nombre de rubriques et 
titre de chaque rubrique). Le menu vous permettra, ensuite de créer de 
nouvelles fiches (1 ), de trier ces fiches dans l'ordre alphabétique des pre- 
mières rubriques (2), de modifier le contenu d'une fiche (3), d'annuler 
une fiche (4), de lister votre répertoire à l'écran (5), ou sur une 
imprimante (6), d'enregistrer le nouveau fichier créé, ou modifié (7), d'ef- 
facer l'ensemble des fiches en mémoire (8) ou de sortir du programme, 
l'option (7), ne doit surtout pas être oubliée, en fin de traitement, il arrive, 
en effet, très souvent que l'on travaille plusieurs heures sur un fichier, 
et qu'on éteigne sa machine sans enregistrer les données ; l'option (8) 
est à utiliser avec prudence car elle efface toutes les fiches en mémoire. 
Ce programme peut tourner sur MZ-700 mais peut être entré sur tout 
MZ, il est standard à tous les BASIC une exception près. 

POKE $55, XX deviendra POKE 4466, XX en BASIC 5025 (MZ-80K) ou 
CURSOR 0,XX sur les autres BASIC. 


10 G0TD2B60 

20 REM ***** TRI ♦♦♦♦♦ ■■ 

30 PRINT"® Je trie 
40 S=1 s SL ( 1 ) =1 : SR ( 1 ) =EN 
50 Q=SL(S> :R=SR(S) sS=S-l 
60 X=Q: J=R: X*=N* ( 1 , INT( (Q+R) /2) ) 

70 IFN* ( 1 , X > <X*THENX=X+1 : 60T07O 
80 IFX*<N* ( 1 , J) THENJ=J-1 : GQT080 
90 IFX>J THEN 130 
100 FOR 1=1 TON 

110 0*(I)=N*(I,X> sN*(I,X)=N*(I, J) :N*(I,J)=0*(I) : NEXTI 

120 X=X + 1 ï J=J-1 

130 I FX < = J THEN70 

140 IFX>=RTHEN160 

150 S=S+1 : SL (S) =X : BR (5) =R 

160 R=J 

170 IFGKRTHEN60 
180 IFSO0THEN50 
190 G0T0360 

200 REM ♦♦♦♦♦ LECTURE DONNEES K7 ♦♦♦♦♦ 

210 INPUT n |MU TITRE DU FICHIER : "5F* 

220 PRINT ,, fiJ63 =, l aces votre cassette fichier; appuyés sur PLAY puis tapez CESPACE3 
":REM UNIQUEMENT POUR MZ 700 
230 BETA*! IFA*=" "THEN250 
240 SQTQ230 

250 PR INT "U Je lis " ; F* 

260 PR I NT : ROPENF* 

270 INF'UT /TN, Lî DI MC* (N) :F0RI=1T0N: INPUT/TC*(I> : NEXTI 
280 DIMN* (N, 255) ,0*<N) ,D*(255) ,W*<255) 

290 INF'UT/TENî F0RX=1T0EN 

300 FOR 1 = 1 TON: INPUT/TN* ( I , X ) ïNEXTI 

310 NEXTX: CLOSE: G0T0330 


320 DIMN* (N, 255) ,0* 

330 F'*=LEFT*<5L*,L> 

340 L*=" L"+LEFT*<SL*,L>+"-' 

350 REM ♦ ♦♦♦♦ MENU ♦ ♦♦♦♦ 
360 D 1=0! 1)2=0! D3=0 

370 PRINT"®- 

380 PRINT" " ; F*; T AB (27) ; EN 

390 FRI NT "~ 

400 PRINT" Tapes 


D* ( 255 ) , W* ( 255 ) 


ENTREES" 


410 PR INT "K 
420 PR I NT "fij 
430 PR INT "K 
: 440 PR INT ”6! 
450; PR INT "8! 
460 PR I NT ”BJ| 
470 PR INT "« 
480 PR INT" « 
490 PRINT' 


500 SET A: I F A=0THEN500 : 


Il pour ENTRER DES DONNEES" 

C23 pDur TRIER DES DONNEES" 

C 33 pour MODIFIER DES DONNEES" 

143 pour EFFACER DES DONNEES" 

C53 pour UNE LISTE A L'ECRAN" 

163 pour EDITER SUR IMPRIMANTE" 

C 7 3 pour ENREGISTRER DES DONNEES" 

183 pour EFFACER LES DONNEES" 

L 9 3 pour SORTIR DU PROGRAMME” : USR (62) , 
Meinoi re disponible : ";BIZE; " octets. " : : 


510 QNAG0TQ530, 30, 1180, 1 1 10, 1340, 1610, 2690, 2780, 2B40 
520 REM ♦♦♦♦♦ENTREE DES DONNEES ♦♦♦♦♦ 

530 IFEN>254THENPRINT"®fiJ Fichier p 1 ei n " î USR (62) ! FORDL= 1T02000! NEXTDL! : B0T0360 
540 X=EN " 

550 X=X + 1 ' 

560 PR INT" BU Tapes C- 3 si vous passes cette entree . " 


570 PR INT "65 Entree No. " ; X 
580 I- OR 1 = 1 TON 


590 P0KE*55,2-F2*I: PRINT"*#* " ; C* ( I ) ; " ! " ! PRINT"fij" ; L* 
600 PQKES55, 3+2# I : INPÜT" " ; N* ( I , X ) 

610 IFN* ( I , X ) =" -"THENN* ( I , X) = " " 


B6::®SiFiÉNMS;®FX®>l:ra 

iàÉHf s ®£*55ÿ:4l2*TlPSll§SFfi:&^^ 

566dS:PRSNT7EÉJfToutMs^t;e;s:'-::ÈbtR^ 

680 I F A*= " N " THENGOSUB 1 200 ! PRINT"®" : G0T0700 
690 G0TO670 

lilliiiSlKfiiiiifSBlls&ïïili® 

710 GETA*: IFA*=” "THEN710 
720 I FA*= " 0 " THEN550 
730 I FA*= " N " THENEN= X : G0T0360 
740 GQT0710 

750 REM ♦♦♦♦♦ RECHERCHE ♦♦♦♦♦ 

760 PRINT”® Tapes le Na. d’entree au " ; C* ( 1 ) 

770 PR INT" U 103 Pour retourner au menu. S!" 

780 INPUT" "j DT*! PRINT! IFDT*="0"THËND1=0: D2=0: GOT0360 
790 AD=ASC (LEFT* (DT*, 1) ) i IF (AD<49) + (AD >57) THENGOSUBBBO: RETURN 
800 X=VAL (DT*) ! IFX >ENTHEN760 
B10 I F ( D 1 =0 > * ( D3=0 ) THENRETURN 

820 PRINT"Entree No. X : PRINT: FDRI = 1 TON: PRINTN* ( I , X > :NEXTÜD1=0 
830 IFD2=0THENRETURN 

840 PR INT "B! Je l’efface vraiment ? (D/N) " 

850 GETA*: IF A*="0" THENRETURN 
860 IFA*="N" THEN760 
870 GGT0850 
880 V=Oî X=1 

890 IFN* ( 1 , X ) =DT*THENV=V+ 1 : H ( V) =X 
900 I F X >ENTHEN X=EN : 60T0920 
910 X=X+1 : G0TD890 
920 I F V=0THEN990 

930 IFV=1THENX=H(V> : D1=0: G0T0810 
940 PR INT "K Na. SJ" : F0RX=1TQV: P=H ( X ) 

950 F'RINTP; " " ; N* ( 1 , P ) ; " , ";N*(2,P> : NEXTX : PRINTSL* 

960 INPUT "Donnes le Na. (0 si pas de Na.) : " ; X: IFX=0THEN760 

970 IFX >ENTHENPRINT"ii" ; SPC ( 40) 5 "HU":60T0960 
980 GOTa810 

990 PRINT"SI Je n'ai pas trouve cette entree." 

1000 F0RDD=1T01000!NEXT 
1010 X=1 

1 020 IFLEFT* (N* ( 1 , X ) ,3) =LEFT* (DT*, 3) THENV=V+ 1 : H ( V ) =X 
1 030 I F X >ENTHENX=EN : GOTO 1 050 
1040 X=X+l:G0T01020 
1 050 I FV=OTHENUSR ( 62 ) ! GGT0760 

1060 PRINT"6! Etes-vous sur de votre demande ?" 

1070 PRINT" Les entrées similaires sont : B!" ! I F V > 1 THEND 1=0! GCITQ940 

1080 FC)RDD=1T01000!NEXT!D1=0 

1090 X=H(V) SGQT0810 

1100 REM ♦♦♦♦♦ EFFACEMENTS ♦♦♦♦♦ 

1110 Dl = l ï D2=l ! D3=l î G0SUB760 

1120 PRINT" Patience " 

1130 G=Xï FQRI = 1T0N! N* ( I , G) =" " : NEXTI 
1140 FORX =GTOEN î FOR 1 = 1 TON 
1150 N* ( I, X ) =N* < I, X+l) : NEXTI! NEXTX 
1160 EN=EN- 1 : GOTD 1110 
1170 REM ♦♦♦♦♦ MODIFICATIONS ♦♦♦♦♦ 

11B0 GDBUB760 

1190 GOSUB1200:GaTail80 

1200 PRINT"® r " ; P*; " 

1210 FDRI = 1T0N!P0KE*55, ÜPRINTI; " " ; N* ( I , X ) ! NEXTI 
1220 PRINTSL* 

1230 PRINT"No. de ligne a changer (0=aucune) ! " 

1240 GET I * : I F I *= " " THEN 1 240 
1250 I F I *= " O " THENRETURN 
1260 I=VAL ( I*) : IF ( 1=0) + ( I >N) THEN1240 
1270 PRINT"|i Tapes C-3 pour effacer la ligne" 

1280 PRINT"B! sinon CCR3 apres correction." 

1 290 P0KE*55 , I ! I NPUT " >EE" ; N* ( I , X ) 

1300 IFLEFT* (N* (I, X) , 1 ) = " - " THENN* ( I , X)="" 

1310 N* ( T , X ) =LEFT * ( N* ( I , X ) , L > 

1320 GOTO 1200 

1330 REM ♦♦♦♦♦ LISTE ECRAN ♦♦♦♦♦ 

1340 PR INT "HJ* Tapez E 1 3 pour " 5 C* ( 1 ) 

1350 PRINT"fiJ 123 pour la liste complété" 

1 360 GETA ! I F ( A=0 ) + ( A >2 ) THEN 1 360 

1370 PRINT"Bfi!Tapes 113 pour une liste CONTINUE. 

1380 PRINT"B! C23 pour une liste PAS A PAS." 

1390 GETB: IF (B=0)+(B>2> THEN 1390 
1400 INPUT"® No. de DEPART ! ";C 
1410 I F < C< 1 ) + ( C >N- 1 ) THEN 1400 
1420 IFB=2THEN1450 

1430 F'RINT"®Tapes [ESPACE! pour interrompre la liste" 

1440 PRINT" C03 pour retourner au menu. ": F0RDD=lT02000i NEXT 

1450 F'RINT"®" ; : FORX=CTOEN: PRINT"Entree No. "; X : PRINT " " ' 

1460 PR I NTN* ( 1 , X ) : IFA= 1 THEN 1480 

1470 FDRI=2T0N: PRINTN* ( I, X) : F0RJ=1T0150: NEXTJ , I 

1480 I FB=2THEN 1 520 

1490 GETB*! I FB*= "0 " THEN360 : 

1500 I FB*= " " THENF0RDD= 1 T0500 : NE XT : GOTO 1 520 
1510 GOTO 1570 

1520 IFB=2THENPRINT"fi! Tapes CESPACE 3 pour l’entree suivante" 

1530 GETA*: IFA*=" "THEN 1560 
1540 I FA*= " 0 " THEN360 
1550 GOTO 1530 
1 560 I FB=2THENF'R I NT " B" j 
1570 PRINT: NEXTX 

1580 PRINT" FIN. Tapes ”0" pour le menu. " : G0T01530 
1590 REM ♦♦♦♦♦IMPRIMANTE ♦♦♦♦♦ 

1600 REM Pour imprimante 1PQ1 (MZ 730) 

1 6 1 0 PR I NT " B" ; : A 1 =0 : A2=0 ! A3=0 ! A4=0 : A5=0 : A6=0 
1620 FDRI = 1T0EN! W* ( I > =" " ! D* ( I ) =" " : NEXTI 
1630 DI MB* (8) , B (8) : F0RI = 1T08: B* ( I ) =" " : B ( I ) =0: NEXTI 
. 1 640: -PRINT- Tapez -Cl 3 pour imprimer toutes 1 es" : F'RINTTAB (1 1) ; "entrées" 

1650 PRINT"8J C23 pour imprimer les entrées de" : F'RINTTAB ( 1 1) S "votre choix." 

1 660 GETA 1 ! I F ( A 1 =0 > + ( A 1 '>2 > THEN 1 660 

1670 PRINT"® Tapes Cl 3 pour imprimer par LABELS" 

1680 PRINT"BJ C23 pour imprimer en CONTINU" 

1690 GETA2! IF (A2=0) + (A2 >2) THEN 1690 
1700 IFA2=1 THEN 1850 

.1.710 PRINT"® Tapes C 1 3 pour UNE rubrique par ligne" 

1720 PR INT' "fi! C23 pour DEUX rubriques par ligne" 

1730 GET A3: IF (A3=0) + (A3 >2) THEN 1730 
1740 I FA3= 1 THEN22 1 0 

1750 F'RINT "fi! Les rubriques pour " ? F*.; " sont : fi!" 

1760 F0RI=1T0N!PRINTI; " - " ; C* ( I ) ! NEXTI 
1 770 PR I NT : FOR I = 1 T0NBTEP2 
1780 PR INT "Ligne” ! I ; " : RUBRIQUE No.: " ; 

1790 GETB ( I ) : I F ( B ( I > < 1 ) + ( B ( I ) >N > THEN 1 790 

1800 PRINTC* (B (T ) ) ! IF 1 + 1 >NTHENI=Ns NEXTI "G0TQ221Q: : 

1810 PRl'NT"Ligne "5 IS "! RUBRIQUE No.: "5 
1 820 GETB (1 + 1) ! I F ( B ( I + 1 ) =0 ) + < B ( I + 1 ) >2 ) THEN 1 820 
1 830 PR I NTC* (B ( 1 + 1 ) ) : NEXT I 

1840 G0T02210 ; ; ■ ■ ' , : 

1850 PRINT"Hfi! 8 lignes MAXIMUM peuvent etre imprimées" 

1860 F'RINT "pour chaque LABEL. " 

1870 PR INT "fi! Voul es -vous imprimer " j C* ( 1 > ; " et " 

1880 PRINTC* (2) ; " sur la meme ligne ? (0/N)" 

1890 GETA4* : IFA4*=”N"THENA4=1 : G0T01950 
1900 I FA4*= " 0 " THENA4=2 : GOTO 1 920 : 

1910 GOTO 1890 : 

1920 ■■PRINT" fil Tapes C13 pour ";C*(1>;" en premier." 

1930 PR INT "fi! C23 pour ";C*(2) 5 " en premier." 

1940 GETA5: IF (A5=0) + (A5>2) THEN1940 

1950 A7=0: F'RINT"® Les rubriques de ";F*î" sont : " 

1 960 F'R I NT : FDR 1 = 1 VON : F'R I NT " Rubrique " ; I; " ! " ; C* ( I ) : NEXT ï 
1970 F'RINT"fi! Entres le No. de rubrique pour chaque" 

1980 F'RINT"1 igné du label:" 

1990 F'RINT"fi! Ligne l! " ; : IF (A4=l > + ( (A4=2) * (A5=l ) ) THENF'RINTC* ( 1 ) ; : D*=C* ( 1 ) 

2000 IF (A4=2) * (A5=2) THENPRINTC* (2) ? " " ; C* ( 1 ) : D*=C* (2) +" "+C*(1) 

2010 IF ( A4=2) # ( A5=l ) THENPRINT" , " i C* (2) : D*=C* ( 1 ) + " , "+C*(2> 

2020 PRINT 

2030 PRINT" Tapes C-3 pour entrer une ligne vide. "SPRINT 
2040 FOR I=2TQ8s PRINT "Li gne" ; I ; " : " ; 

2050 GETB* ( I > : IFB* ( I > =" "THEN2050 

2060 I FB* ( I ) = " - " THENB ( I ) =0 : G0T02080 

2070 B ( I ) =VAL (B* ( I ) ) : IF (B ( I ) =0) + (B ( I ) >N> THEN2050 

2080 PRINTC* (B ( I ) ) : A7=A7+1 : NEXTI 

2090 IFA7/8THEN1950 

2100 PRINT"Bfi! Ligne 1 s " ; D* 

2110 F0RI=2T08s PRINT" Ligne"; 

2120iNEXTI 


I 


2130 F'RINT"EJ D’accord ? (0/N)" 

2140 GETA*: IFA*="N"THEN1950 
2150 I FA*= " 0 ” THEN2 1 70 
2160 GQT02140 

2170 FRINT"B Tapes Cl 3 pour un format normal." 

2130 PRINT"B1 C23 si vous voulez la derniere" 

2190 PR INT" ligne margee a droite." 

2200 GETA6 s I F < A6=0 ) + < A6 >2 ) THEN2200 
2210 I FA 1 = 1 THENG0SUB2620 
2220 I F A 1 =2THENG0SUB2480 

2230 PRINT“g Préparez votre imprimante et" 

2240 G0SUB2650 
2250 IFA2=1THEN2340 
2260 MQDETL : PR I NT /PF* ; î MQDETN 
2270 F0RX=CT0EN 

2280 IF(A1=2># (W* ( X > = " " ) THEN2330 

2290 PR INT/P: F0RI=1 TON 

2300 IFA3=1THENPRINT/PN*(I,X> 

2310 IFA3=2THENPRINT/PN*(B(I) ,X> ; " : IFI/2=INT ( 1/2) THENPR1NT /P 

2320 NEXTX 

2330 NEXTX ! PR INT /P: G0TD360 
2340 PRINT/P" "; 

2350 PRINT/P""; 

2360 FQRX=CTQEN 

2370 IF (Al=2> * <W* (X ) =" " ) THEN2470 
2380 I FA4= 1 THEND* ( X ) =N* ( 1 ? X ) 

2390 IFA5=1THEND*(X>=N*(1,X>+", ”+N*(2,X) 

2400 IFA5=2THEND*(X)=N*(2, X)+" "+N*<1,X) 

2410 IFLEN (D* (X ) ) >32THENPRINT/P"8J" ; 

2420 PR I NT /PD* ( X ) : I FLEN <D* < X) ) >32THENPR INT /P "[S" ; 

2430 F0RH=2T07 : PR INT /PN* (B (H) ? X ) sNEXTH 

2440 IFA6=2THENPR INT /PSPC (39— LEN (N* (B (8) , X) ) ) .! " "; 

2450 PRINT/PN*(B(8> ,X> 

2460 PRINT/P 
2470 NEXTX ! GDTÜ360 

2480 PR INT "g IMPRESSIONS SELECTIONNEES 

2490 PRINT" 1 — — — 

2500 PRINT"6J Quand chaque entree est affichée, ” 

2510 PRINT"fii Tapez C13 pour l’imprimer." 

2520 PR1'NT"M C ESPACE 3 pour passer." 

2530 GÜSUB2620 
2540 FORX=CTDEN 

2550 PR INT "B Fiche Nd. " ; X : PRINT: PRINT : FQRI = 1 TON: PRINTN* ( I , X ) : NEXT I 

2560 GETW* ( X ) : IFW* (X) =" "THEN2560 

2570 I FW* ( X ) = " 0 " THEN360 

2580 IFW* ( X ) =" 11 THENW* < X ) =" " : GGTÛ261 0 

2590 IFW*(X>="1" THEN26 1 0 

2600 GOTQ2560 

2610 NEXTX: RETURN 

2620 INPUT"BJ No. de FICHE de DEPART : ";C 

igMiililSiliiiBisfeisra 


J F* ; r*=LEFT*(F* , 16 ) : PR I NT 

RECORD-PLAY" : PRINT"iî J’ enregi stre 


' (G/N) " 


ïiaiaiiiiIiBHïiiiiiii 

liiiiiiiiiisi® 

||H||j||||||||||||||||||||||||||S 

2740 PRINT/TN,L:F0RI»=1T0N;PRINT/TC*(I> :NEXTI 

lisissiiiiiiiiiMB* 

2760 FQR I = 1 TON : PR I NT/TN* ( I , X ) »NEXTI 

DilillKWSBffiÉM 

illSlËlillIftllÉSIIM 

2840 PRINT”®! FISH est termine. K" s END 

liiiifliiiiiIliiiiiïliiiiiliSiiiiiBiiisA^ 

;!;:!38i®!SPHraiiSg|ji|p[ï?;;!BiliI;a^ 

ïiaiiliiÉifflijHBïMaM 

MiSiilflffiiïlM 

iiliaillllilliillAisia'f^ 

llglOlBSlElilBigiaaiM 

C ” T Ur u " — - fichier . " 

xy.O PRINT « C23 pour lire un fichier sur K7. " : ÜSR (62) 




‘ : (JSR (62) 


2980 GET A : 1 F ( A=0 ) + ( A >2 ) THEN2980 

-0-0 mNT“»W T i| tr ! dU fichier ! " 5 F*: F*=LEFT* (F*V"l5) 
jOjü PRINT SB! Nombre de RUBRIQUES (2-9): "■ 

3040 GETN: IFN<2THEN3040 
3050 PRINTN: DI MC* (N) 

3060 INPUT"U_Dngueur MAX I d’une RUBRIQUE ( 4 - 37 ): ":i 
3 obo° fÏrÏ™ L>37) ™ PRINT,,ïi " 5 SPC <39) 5 "MU" * Q0T03Q60 

3090 P0KE*55,5+2#I:PRINT"U" ? TAB(22) ; " l. 

lîfj de la RUBRIQUE";!;" : INPUT" " ; C* ( I ) 

312C) PRINT"BSI Titre : " ; FS: F0RI = 1T0N 
3130 PR INT "SJ Rubrique";!;": " ; C* ( I ) : NEXTI 

-t correct 7 (0/N) fi," : USR < 62) 

3160 I FAS= " N " THEN30 1 0 
3170 GQT031 50 


PROGRAMMATION 

STRUCTUREE 



Que tous les fanatiques de la 
programmation structurée se 
rassurent, si cette rubrique 
était absente du dernier 
numéro c'était à cause de la 
conjonction maléfique Vacan- 
ces-Sicob qui perturbe tou- 

I 'ours un peu la rédaction du 
»ulletin cle la rentrée. 

Nous reprenons donc cette 
série, d'autant plus que M. 
KOKANOWSKY a récidivé en 
nous écrivant un SUPER BASIC 
pour le MZ-700 encore plus 
performant que le SUPER 
BASIC 2 !!! 

Les deux premiers chapitres avaient mis l'ac- 
cent sur le gain en lisibilité et en facilité de pro- 
grammation que provoquait l'abandon des 
GOTOS au profit de boucles structurées. Nous 
allons voir aujourd'hui un autre avantage de ce 
« style » de programmation : la procédure. Pre- 
nons un exemple : vous avez envie d'utiliser 
votre MZ comme une horloge à aiguilles. 
Comme ce merveilleux appareil comporte une 
horloge intégrée (Tl$) le problème se résume 
au dessin du cadran et au mouvement des 
aiguilles et l'algorythme de programmation 
peut-être représenté par n'importe lequel de ces 
schémas dont seul change le degré de 
l'analyse. 




On s'aperçoit en regardant le schéma le 
plus détaillé que l'on effectue trois traite- 
ments très proches : 

• dessin des aiguilles des heures 

• dessin des aiguilles des secondes 

• dessin des aiguilles des minutes 

Or les seules différences entre ces trois 
traitements sont ; 

• la position de l'aiguille 

• sa longueur (en général l'aiguille des heu- 
res d'une pendule est plus petite). 

De plus effacer un objet sur l'écran d'un 
ordinateur consiste simplement à le dessi- 
ner de la même couleur que le fond de 
l'écran. Il serait donc bien agréable, plutôt 
que d'écrire six morceaux de programme 
très voisins, de disposer d'un sous- 
programme, (on parle de procédure de sub- 
routine, ou de routine, quand on jargonne 
dans le patois des informaticiens) qu'on 
appellerait quand on voudrait et qui dessi- 
nerait une aiguille, soit de la couleur du 
fond, soit normalement à une position don- 
née, d'une longueur choisie. (Ces trois indi- 
cations à fournir au sous-programme s'ap- 
pellent des paramètres). 

Et avec le SUPER BASIC ou K BASIC ce 
rêve devient réalité ! 

Il suffit de définir le sous-programme par 
DEF PROC, et de le terminer par END 
PROC, et on peut l'appeler six fois par 
PROC « nom » (paramètre 1, paramètre 2, 
paramètre 3, etc.). Dans notre exemple, le 
nom de la procédure est « aiguille » et elle 
comporte 3 paramètres, position, longueur 
et existence). 


EXPLICATION DU PROGRAMME 

Rappel pour les non matheux : un point M 
situé à la circonférence d'un cercle de 
rayon R et de centre 0 confondu avec celui 
du repère a comme coordonnées : 

Xx = R(COS(0)) 

Yy = R(SIN(0)) 



Ligne 60-80 : 

Cette boucle parcourt le cercle trigonomé- 
trique en 1 2 étapes pour afficher les chif- 
fres du cadran. 

Ligne 120-140 : 

On découpe la variable système Tl$ qui 
contient l'heure en trois variables numéri- 
ques une pour les heures, une pour les 
minutes, une pour les secondes. 

Ligne 150-170 : 

On appelle trois fois la procédure pour des- 
siner les aiguilles. 


Note : On multiplie les heures par 5 (entre 
0 et 12) car la procédure attend une posi- 
tion comprise entre 0 et 60. 

Ligne 180-210 : 

On stocke l'absence actuelle (c'est-à-dire 
celle affichée) et on boucle tant qu'elle cor- 
respond à l'ancienne boucle (Tl$). 

Ligne 220-240 : 

On efface les aiguilles (3 e paramètre, celui 
d'« existence » à zéro). 

Ligne 280 : 

Les variables TEMPS, LONGUEUR, EXIS- 
TENCE prendront la valeur des paramètres 
qui sont envoyés à la procédure. 

Ligne 300 : 

Pour convertir la position de l'aiguille de 0 à 
60 en une mesure, en radian ce fait : 

• une règle de 3 

Temps x 2t 

60 

• une complémentaire (le SENS trigo est 
l'inverse de celui des aiguilles d'une 
montre) 

• une rotation d'1/4 de tour (t/2). 


20 PR INT"® 

HOttOGt 


ENTRE* L'HEURE SOUS lA FORflE HHMfISS ’ -PRINT SPRINT 

''30'''T'NFniT*fCURE': , -Wîn'#-M''' ' "" ' 

4e PRINT p fi TAPE* UN ESPACE POUR ARRETER' 

30 RED ttmt l CADRAN ********* 
ee FOR THETA-XX2 TO 5**/2 STEP 2*X^l2 
>2 CURSOR2e-COSrTHETA.Uie.12.5-SINCTHETAJ*ie 
80 PRINTHEURE î HEURE "HEURE+ 1 
9e NEXT THETA 

iee rem t»mi aiguilles ******** 

lie REPEAT 

120 î H~VALCn:D*CTI*, 1,233 

130 î n»OALCriID*CTI*,3. 21. T 

14e : S“UALcriio*cm,5,2:;:. 

150 i *ROC r c Î9U? CH*5,ie» 1 } 

100 1 PR 0 C r aisui I l« r rn* 13»1 ; 

170 Ï PROC’o isui I lt‘ CS> 15, 1 3 

180 î HEURACT*-T1* 

*90 : MHILE HEURACT4-TI* DC 

208 ï KEY CARAC* 

210 s NEND 

220 * p RDC p aî*ui 15,03 

p ROC r o î 9 ui i iê r rn, 15,03 
p ROC p o î»ui I l* r CM*5, 10,83 
CARAC*- p ' 


240 

250 UNTIL 
200 END 

270 REM ****** PROCEDURES 
280 DEF PROC p o i9u! I le' fTDVS, LONGUEUR, EXISTENCE 3 
290 : fcRAPH 40, 25 

300 : ANGLE— CTEnr*C*2*ï ^503+1^2 

31 2 : DRAW EX I STENCF , 40+COS C ANGLE 3XL0NGUEUR , 25-S I N ( ANGLE 3 *LONGUEUk 


LM. 

SUR M.Z. 


Dans la série « le L.M., ça 
existe aussi sur les MZ », nous 
allons tenter par cette série 
d'articles de faire connais- 
sance avec le microprocesseur 
qui équipe nos MZ. Pour faire 
connaissance, il faut dialo- 
guer, pour dialoguer, il faut 
parler le même langage. 
Notre microprocesseur refu- 
sant catégoriquement de par- 


ler français, nous allons donc 
devoir apprendre le « lan- 
gage machine », dialecte 
natal de notre « puce ». le 
gros avantage, avec MZ c'est 
que, contrairement aux PC, 
ceux-ci sont tous équipés du 
même microprocesseur : le 
Z80 de ZILOG, le LM de ce Z80 
sera donc identique pour tou- 
tes nos machines. 



QU'EST-CE QU'UN MICROPROCESSEUR 

C'est une minuscule boîte noire, vulgairement 
appelée « puce » munie de nombreuses pattes 
qui permettent de la connecter à l'ensemble des 
circuits de notre MZ. Cette puce possède un 
cœur appelé QUARTZ ou horloge qui fait 
« poum, poum » à la cadence de 1000.000 à 
4000.000 de battements par seconde, à cha- 
que battement de son cœur, le microproces- 
seur exécute 1 instruction d'un programme 
écrit en langage machine, et cela sans jamais 
se reposer. Cette formidable capacité de tra- 
vail permet à notre microprocesseur d'avoir 
l'œil, en une fraction de seconde, sur les 64000 
cases que composent les 64K de sa mémoire, 
ainsi que sur tous les périphériques qui lui sont 
connectés : clavier, écran, imprimante, dis- 
quettes, joysticks, etc. 

COMMENT FONCTIONNE 
UN MICROPROCESSEUR 

A l'intérieur de notre puce est logé un diction- 
naire de toutes les instructions de base qu'elle 
peut exécuter (environ 70), chacune d'entre 
elles possède un code numérique de valeur 1 
à 255 (en décimal). Le travail du microproces- 
seur va donc être de lire un code dans une case 
mémoire, d'exécuter l'instruction correspon- 
dante, de passer à la case mémoire suivante 
et de continuer ainsi. 

Mais attention, car il y a un MAIS ; malgré tou- 
tes ses qualités, un microprocesseur possède 
un gros défaut : il est incapable d'avoir la moin- 
dre initiative personnelle. S'il rencontre un code 
qu'il ne connait pas, il se bloquera ou fera n'im- 
porte quoi et faire n'importe quoi 1 million de 
fois par seconde c'est généralement désastreux 
pour le programme en cours. 

Rassurez-vous, toutefois, un « plantage » ne 
peut en aucun cas, provoquer une panne maté- 
rielle sur votre MZ. 

POURQUOI LE L.M. 

Outre sa formidable rapidité d'exécution (voir 
l'exemple qui va suivre), un programme écrit 
en L.M. est toujours beaucoup moins gourmand 
en place mémoire qu'un même programme en 
langage évolué (ex : BASIC), enfin certaines 
instructions du langage assembleur sont impos- 
sibles à reproduire en BASIC. 

UN EXEMPLE 

Sans plus entrer dans les détails, dans cette 
première approche, nous allons étudier, com- 
parer et faire tourner un même programme en 
BASIC et en LM. 


Système MZ 700 compatible CP.M 





Commencez par taper le programme BASIC 
« COMPTE » ci-joint et ATTENDEZ la fin de ces 
explications avant de le faire tourner. 

« COMPTE » est une programme complète- 
ment inutile mais pédagogique qui comme son 
nom l'indique, fait compter votre MZ de 1 à l'in- 
fini le plus rapidement possible. Pour compren- 
dre l'organigramme qui suit, sachez que le Z80 
possède plusieurs registres internes qui sont 
en fait des cases mémoires ou l'on peut loger 
des valeurs numériques. Nous utiliserons deux 
de ces registres appelés A et HL ; « CARAC- 
TERE » est le chiffre dont le programme cal- 
cule l'emplacement et la valeur avant de l'af- 
ficher. [ADRESSE est la case mémoire écran 
(voir article sur la mémoire vidéo du n° 8) ayant 
pour numéro : HL). 



LE PROGRAMME 

Etudions maintenant le programme BASIC : 

COMPTE 1 est la reproduction fidèle en BASIC 
de la structure de notre programme LM, il vous 
permettra de mieux comprendre 
l'organigramme. 

COMPTE 2, est un comptage par incrémenta- 
tion d'une variable (incrément = +1) et son 
affichage. 

COMPTE 3, est le même comptage, mais placé 
dans une boucle FOR... NEXT, c'est la méthode 
la plus rapide en BASIC. 

COMPTE 4, est notre programme L.M. qui a 
précédemment été implanté en mémoire par la 
routine « IMPLANTATION COMPTE 4 LM » les 
codes sont entrés par DATA'S. Sur chaque 
ligne de DATA'S correspond l'instruction exé- 
cutée par le Z80 (EN REM). Nous reviendrons 
bien sûr dans le détail sur ces instructions. 

Taper RUN puis successivement 1,2,3 et 4, les 
différents comptages apparaîtront à l'écran, 
tapez [SHIFT-BREAK] pour les interrompre, ou 
RESET pour interrompre le programme L.M. 

Comparons maintenant les temps d'exécution 
(MZ-700). 

- En 1 minute COMPTE 1 affiche = 5100 
COMPTE 2 affiche = 7100 
COMPTE 3 affiche = 8500 
COMPTE 4 affiche = 
1.330.0001... 

COMPTE 4 est donc 260 fois plus rapide que 
COMPTE 1. 

187 fois plus rapide que 
COMPTE 2. 

et 1 56 fois plus rapide que 

COMPTE 3 (version la 
plus rapide en BASIC). 

De plus COMPTE 4 occupe la place mémoire 
d'environ 1/2 ligne de BASIC. 

Convaincus ? Alors étudiez bien ce programme 
et son organigramme, c'est une excellente 
gymnastique... La suite au prochain numéro... 

S. BIZOIRRE 


20 REM 

********************************* 
30 REM*f1ISE EN PLACE DES INSTRUCTIONS 
*L.M. EN MEMOIRE» A PARTIR DE L' 
*ADRESSE HEXA $9000 ET MENU 
********************************** 
50 GOSUB 600: GOT0 1000 
70 REM 

********************************* 
80 REM* COMPTE BASIC TOURNANT SELON LE 
*MEME PRINCIPE QUE LE PROGRAMME L. 
*M. CUOIR ORGANIGRAMME J. 
********************************** 
100 HL=$D1 98 
110 A=PEEKCHL3 
120 TF A <>$29 THEN GOTO 160 
140 POKE HL, $20 
150 HL=HL- 1 :GOTO 1 10 
160 IF A<>$0 THEN GOTO 180 
170 A=$20 
1 80 A=A+ 1 
190 POKE HL, A 
200 GOTO 100 
270 REM 

******************************** 
280 REM*COMPTE AUEC INCREMENTATIONS SUC- 
*CESSIUES DE A. 

********************************* 
300 CURSOR0, 1 0 :A=0 
310 A=A+1 : PR INT "HT ;A :G0T031 0 
370 REM 

******************************** 
380 REM*COMPTE DANS UNE BOUCLE FOR. NEXT 
********************************* 
400 CURSOR0, 1 0 
410 FORA=1 T099999 
420 PRINT"ffl" ;A 
430 NEXTA 
470 REM 

480 REM*COMPTE EN L.M. 

500 USRC$90003 :REM Pour ME 700 
510 USRC368663 :REM Pour ME 80 K 8, A 
570 REM 


******************************** 

580 REM*LECTURE DES DATA'S 

600 FORI=$9000 TO $9018 
610 READ A :POKEI , A 
620 NEXT I 
630 RETURN 
770 REM 

780 REM*CODES D'INSTRUCTIONS L.M. EN DATA 
*ET INSTRUCTIONS CORRESPONDANTES 
*2 80 EN REM. 

790 REM********************************* 


800 

DATA 

$D3, $E3 : 

REM 

OUT 

810 

DATA 

$21 ,$98, 

$D1 :REM 

LD 

820 

DATA 

$7E : 

REM 

LD 

830 

DATA 

$FE, $29 : 

REM 

CP 

840 

DATA 

$20, $05: 

REM 

JR 

850 

DATA 

$36, $20: 

REM 

LD 

860 

DATA 

$2B : 

REM 

DEC 

870 

DATA 

$18, $F6 : 

REM 

JR 

880 

DATA 

$FE, $00 : 

REM 

CP 

890 

DATA 

$20, $02: 

: REM 

JR 

900 

DATA 

$3E, $20 : 

REM 

LD 

910 

DATA 

$3C : 

REM 

INC 

920 

DATA 

$77: 

REM 

LD 

930 

DATA 

$18, $E9 : 

REM 

JR 

970 

REM 





HL,»D138 ^ /-JT. 
A, CHL3 

$29 tf V 

NE, $900F £ 

CHU, $20 S4 

HL HQ, 

$9005 

$00 a^H o 

NE, $901 5 1% Ol 

*’*20 €1 O ,? 

m 

CHL3 , A A 
$9002 <IM O 9 *> 


******************************** 
980 REM*CHOIX DE COMPTE 

1000 PRINT"0" 


Tapez LU Pour COMPTE Iffl" 

[2] Pour ‘COMPTE 2ffl" 

[33 Pour COMPTE 3ffl" 

[43 Pour COMPTE 4 CL.M 


1010 PRINT 
1020 PRINT 
1030 PRINT 
1040 PRINT 
.3" 

1050 GETRE : IFRE=0THEN1 050 
1060 ON RE GOTO 100,300,400,500 
1070 END 



80 B 


Nous privilégierons ce mois-ci, les utilisateurs 
du MZ-80B, munis de disquettes et d'une impri- 
mante, les 2 programmes proposés nécessitent, 
en effet, au minimum, 1 unité de disquettes. 

XRAY 

Rassurez-vous, XRAY n'est pas un programme de gestion de centrale 
nucléaire, aucune combinaison spéciale n'est exigée pour l'utiliser. XRAY 
est intéressant à plus d'un titre, c'est d'abord un utilitaire qui visuali- 
sera sur l'écran de votre MZ la surface physique de votre disquette et 
indiquera très clairement la place occupée par chaque fichier, sa longueur 
et son type (OBJ-TXT-BRD-BSD). 

Vous vous apercevrez ainsi que certaines de vos disquettes sont orga- 
nisées de manière très... désorganisée ! et pourrez ainsi en replaçant vos 
différents fichiers à la queue leu-leu gagner beaucoup de place sur vos 
disquettes. La visualisation peut également s'effectuer, de manière plus 
complète sur imprimante. 

Instructif également, d'un point de vue didactique, l'étude de listing de 
XRAY, bien documenté vous permettra d'aborder l'étude du fonction- 
nement du système d'exploitation qui gère l'enregistrement et la lecture 
des fichiers sur les quelques cm 2 de surface magnétique qui constituent 
votre disquette. Bon courage... 


o reh ###*####*####################### 

0 REM ##########################*##### 

################################ 

WÊÊÊÈIÈ^SSBiÊiÊÊ9^Ê§ÊSSÈ&iS^^SÊË^XSiÊ&iÊÊmSî9SIÊISÊÊg^iÊ^&ÊgËiÊÊ&i 

WÏ§êêÈê$ÊÊHUëKêH; W&KÊK ë§§§ÊKM9ï^^Ê^99KÊÊKÊ^^KÊi9KÊIÊÊÊÊÊ9mlKÊHS&SÊÊSHgÊÊ 

10 LIMIT $EOOÜ 

15 DEF FNH(X) = INT<X/256> : DEF FNL ( X > = ( X-FNH ( X ) *256) : DEF FNP ( X > =INT ( ( X/ 16) +. 001 ) ! 
DEF FNS < X ) =X~16*FNP ( X ) 

20 D=1 s TEMP07: MUSIC"RO " s DI$=STRING$ ( ” . " , 16) 

30 DIM PS < 16 j 66) 

39 REM «B 

40 GOSUB 1000! PR INT CHR* (14); 

41 CONSOLE R , C40: PR=0: TT=0: LL=0 

42 CURSQR 10, 1 ! PRINT"Progra(nme • - X-RAY’ 5 *■ s PRINT 
44 PRINTSTRING* 40) ! GOSUB 8000 

46 CURS0R1 1,8: PR INT"Uni te : FD" ! STR* (D) 

47 CURS0R10, 6:PRINT” UJnlte 0 = FIN)" 

50 CURSQR23.S: INPUT" “ ; D*: IF D*=" 0 " GOTO 9u0 

52 D=IN1 iVAL(Dt) ) : IF(D S 4>+ (D<.1)THEN MUS I C" +B" : GOTO 50 

53 POKE *FFC8 « D - 1 : USR ( *FF CO i ! USR ( *5D06 ) : I F PEEK (*E001 ) .>127 THEN PR INT "DISQUETTE 
1 NUT IL I SABLE" ! END 

54 CURSOR 24, iOt PRINT DI*! CURSORO, IOî INPUT»T i tre de la disquette’ s ";DI* 

56 DI*=LEFT* (DI*., 16) 

60 CURSORO. 12! PRINT" Impression des details (Bui ou Bon) ?" 

62 GETZ*: IFZi*=" "THEN62 
64 IFZ*="N"GOTD 100 

66 IFZ*="0" THEN PR-l-'CURSOR 0,20: PRINT SP ACE* (79) 5 s GOTO 72 
68 MUSIC+AO-A": G0T062 

73 GET Y*! IF- Y*<>"" THEI^CUR^r' 1 "lt 20 "pF^I^Sf^ 76 

74 CURSOR 1.20! PR INT "PREPARER IMPRIMANTE. PRESSER 1 TOUCHE" : MUS IC "R6" : GOTO 72 
76 MUSIC'BO" 

SO PRINT/P STRING* 79) i PRINT/PCHR* <1S> ; ' X --RAY ’ - ANALYSE D’UNE DISQUE 

TTE " , CHR* (19) 

82 PRINT/P STRING* ("-",79) : PRINT/P: PRINT/PTAB (28) ? "Titre : "!DI* 

84 PRINT/P STRING* (»-", 79) ïPRINT/F'TAB (30) ; " LOCALISATION TAILLE" 

86 PRINT /P "NOM du FICHIER TYPE LOCK PISTE SECTEUR SECTEURS 

88 PRINT/P STRING* ("-", 79) 

100 CONSOLER, C80! GOSUB 2000 

110 SD=1 ! FOR 11 = 1 TO 46î PS (0, 1 1 > =1 1+SD! NEXT! PS (0, II) =0! Al *="3" ! AF*=A1*! CURSOR F 
NP ( O ) +4 , FNS ( 0 ) +4 -■ PR I NTA 1 * 5 ! MUS I C " -B " ! GOSUB 500 
120 IF PEEK(*E001> GOTO 200 

130 SD=48î FOR 11=0 TO 66i PS (0, I I > =1 I+SD: NEXT: FOR 11=0 TO 61 ! PS ( 1 , 1 1 ) =66+1 1+SDs N 
EXT! PS<1, II)=0!Al*="a":AF*=Al*!MUSIC"+B"!GOSUB 500 

200 ME=57376s FOR 1 = 1 TO 63 
209 REM RECHERCHE CODE 

210 AF*=" " î A14s =" " ï TY=PEEK (ME) t IF TY=0 GOTO 290 
220 RESTORE 230:FOR 11=1 TO TYîREAD Àl*, AF*, MU*, TY* î NEXT 

230 DATA U, ■, +B, OBJ, Î2> ü, +D, BTX, 3, «, F, BSD, ÜJ, ♦, -D, BRD, ?, ?, C, ???, ?, ?, C, ???, ?, ?, C, ? 
??, ?, ?,.C, ???, ?, ?, C, ??? 

250 GOSUB 400 

290 MË=ME+32! NEXT I ! GO TO 700 

400 ON T Y GOSUB 3000,3000,4000,5000 
410 PO-INT (SD/16) :SO=SD-16*PO 
420 IF PR GOSUB 800 

500 CURSOR FNP (SD) +4, FNS (SD) +4! PRINT A1*;:MUSIC MU*! I 1=0! 12=1 
510 PS=PS(I1, 12) ! IF PS=0 THEN RETURN 

520 CURSOR FNP (PS) +4, FNS (PS) +4i PR INT AF*; ! REM MUS IC MU* 

530 12=12+1: IF 12=66 THEN 12=0! 11 = 11 + 1 
540 GOTO 510 
690 RETURN 

700 CURSOR 0, 0! PRINT" J ’ ai fini ! " ; : MUSIC+F-G+F-G+F-G+F-G+F-G+F-G+F-G+F-G+F-G" 

706 CURSOR 0, 0: PRINT" " ; ! CURS0R64, 0: PRINT TT;" secteur"; 

707 IF TT>1 THEN PRINT"s" 


.-OS IF PR GOSUB 7000 
Mu GFTZ + : 1FZ*="" THEN’MU 

/.-<■ IF /*■=“ I "THEN L.URSDR u. 24: PRINT SPACE* i 79 > i : PR INT/FCHR* (1 7 ): C0PY/P1 ! PRINT/P 
(.HP* Ü6> : GIjSUB 2084 : GO T IJ 71 < > 

7 35 IF Z*="F- "ÜCI I (J 9-io 
■•4o MUS IL" -F +-r" : GOTO 710 
‘JO 1 1 REM DIR' F' DETAILLE 

U ] O FOR IJ=ME+tTÛ MErl6!lE PEEF (IJ'=i: F . THEN IJ=ME+16! 0010822 
H20 PP INI ■PCHP*(PEE1 ( I J J J ! 

83f- PR J NI 'PTAB.20) ! TV* ; " AF*! TAB (29) S CHR* i 42*PEEF (ME+18) > i TAB(38> ;FNP(SD);TAB 

H4< 1 IA---61 . Xo=SO:&USIJF< 6000: TA= 71 : XO=L : GOSUB 6000 s 1 A=76 î PRI NT/P" =" ; : X0=INT (L/10 
2. 4- lo: GOSUB 6OM0: PRINT/P") “ 

hp? Rf:m - - 

9.iu LIMIT Mnx: CONSOLE N.C 40 

WÊÊ S ÊÊ ^U Ê Ê Ê§ÊMgÊ&M8S^^ÊIiM9ÊÊÊSÊWSÊÊMBÊÊÊ^ÊÊÊIMW^m9I^SmÊÊ0SlMÊXmÊSgÊÊKÊ^ 

999 REM - 


100U RESTORE IuIuîFOR 1=6547? TO 65486: FL- AD OC:POFE I . OC: NEXT: KE TURN 
1010 DATA 22i.33.2u0.255, 195, 0.93. 0, 0. 16, 0,0. H. 0, . ‘24 
2000 REM sspgm ECRAN 

2010 PRINTTAB(IS) ; "KBtaaai Ti 

2020 PRINT" — 


" : DI*! TAB (53) ! "Fichu? 


2025 PRINT"Dec.B123456789U123456709ei2345678?ai23456789ai2 345678Psai2 .456 78931 2'". 
2030 PRINT" r-- 


2040 PRINT" 0| 

■iiiiiiiiiiiiiii 

2041 PRINT" 1 | 

2042 PRINT" 2| 

iiilIPiiilIliSiSiiii 

2043 PRINT" 31 

lllllilfilllllilllli 

2044 PRINT" 4| 

lillllilliiiliilliili 

2045 PRINT" 51 

liiiipiililliiiiili 

2046 PRINT" 61 

■«lilllliiilillM 

2047 PRINT" 7| 

lllilSIllillillilii 

2048 PRINT" Si 

MHH 

2049 PRINT" 9| 

2050 PRINT" ÜSI 
IA" 

2051 PRINT" ll| 

2052 f 

2053 f 

|P*> 

2054 PRINT" 

JE" 

2055 PRINT" 

I F" 

2060 PRINT» 


■ PRINT" 121 
IC" 

: PRINT" 131 


2070 PRINT ,, He:;.81234567S9ABCDEFÉ|123456789ABCDEF(3123456789ABCDEF«12345s789ABCDEF 

2084 CURSOR 0, 23: PRINT"Si gnes: a=Pistes reservees - â=Systeme / i*=UBJ / ^.=BTX 
/ 3*=BSD / a*=BRD"; 

2090 CURSOR U.24iPRINT " (Impression / fflenu / am"i 

2999 I 


3000 L=PEEh (ME +20 ) f-256*FEEF (ME+21 ) : 3D=PEEF (ME+30) +256*PEEF (ME+31 ) : SQ=TT 
3010 11=0! I2=O!F0R 11=0 TO L/256! FS (1 1 , I 2) = T I + SD: I .’= 1 2+ 1 : IF 12=66 THEN 12=0:11 

3020 NEXT! IF 12=66 THEN 12=0:11=11+1 
3030 PS(I1, I?)=0:TT=rTHl!SQ=T r-SO!LL=LL+L 
3900 RETURN 

3999 REM B^*S3*fMy ^BlgWIBKH»^ 

400u L=PEEH (ME+2U) +256*PEEK (ME+21 ) :SD=PEEF (ME +3 - 1 > +?56*PEEF < ME + 3 J ) : Sl)= I I 


I ! F'UF E *F- F ( lu , *U 1 ! PUF F. *K 


4010 PS(O,0)=SD! 11=0! 12=1: CURSOR 0, 0: PRINT" J ’ etudi e 
4020 POKE *FFC9,FNL(S:0 ):POKE *FFCA,FNH(SD 

4030 USR (*FFCO) 

4050 PS(I1, I2)=PEEI‘ (*F0FE)+256*PEEF i*FOFFi 
4060 POKE *FFC9. PEEF ( *FOFE > : POH E *FF-'CA, PEEF <*F-iFF) 

4070 IF PS (11.12) =0 THEN USR < *5D06) :TT--TT+1:SD-TT -SQ: I L=I_L +1.: CURSOR 0. u: PRINT" 

4080 TT=TT+l: 12=12+1! IF 12=66 THEN 12=0:11=11+1 
4090 GOTO 4030 

5000 SD=PEEK (ME i-30) (-256*PEEF (ME+ 31 ) : L=256: SO=T T 

5010 PS (0,0) =SDs I 1=0: 12=0! TT=TT+1 ! CURSOR 0. 0: PRINT" J ’ etudi e. . 

5020 POKE *FFC9.PEEH (ME+30) : POLE *FFCA, PEEF (ME+31 ; : PUF E *FFCC. *01 ! POF E *FFCL-,*F 

mÊÊÊUmmÊÊmmmmËmmimmÊmmmMSmÊmmÊimÊËmÊlÊmmmÊËmmMï 

5030 USR (*FFCO) « USR (*5006) :MM=61440 
5035 BL=PEEK(MM) +256#PEEK (llH+1 ) : IF BL=0 GOTO 5080 
5040 FOR 11=0 TO 15: TT=TT+1 :L=L+256 
5050 12=12+1! IF I2*66THEN 12=0: I l«ï 1+1 
5060 PS (11,12) =BL+II 
5070 NEXT II! MM=MM+2: (30T0 5035 
5080 12=12+1! IF 12=66 THEN 12=0:11=11+1 

5090 PS (II, 12) =0! CURSOR 0,0îPRINT" " ; : S0= TT - SO: LL=LL *-L: RE‘ TURN 

5900 RETURN 

6000 PRINT/P TAB (TA-LEN (STR* ( INT (XO) ) )— 1) ; XO; : RF TURN 

7000 PR=0: Z*="I": PRINT/P TAB (45) ; "TOTAL :";TAB(57);" ” 

7010 TA=61î X0= TT: GOSUB 6000: TA=71 : XO=LL: GOSUB 6000 
7020 TA=76:X0=INT (LL/102. 4) /10! GOSUB 6000 
7090 PKI NT /P “K "! PRINT/P-’ PRI NT/P! RETURN 

8000 CURSOR O, 14: PRINT"Ce programme analyse l’occupation de 
te fichier par fichier" 

8010 PR INT: PR INT "avec vi suai i sati on" : PRINT"du ‘plan d’occupat 

8020 PRINT! PRINT "Liste detail lee des f i chi ers " : PRINT"possi bl e 
8090 RETURN 


l’espace disquet 
on’ de la disquet 


Programme 
« Les nombres 
premiers » 
de la page 24. 


95 

100 


REM **************************************** 
REM * * 

REM * NOMBRES PREMIERS * 

REM * * 

rem **************************************** 

REM 

REM 

DATA &B5 , &0 1 , &DD , &B7 , 8(04 , 8(8 1 , &0 1 , &DD 
DATA 8<0A , &A5 , &78 , S'.CO , & 1 A , ?<6A , &07 , &58 
DATA 3t00 , 3(48 , 8tOO , 8(84 , 3(D9 , 3,08 , & 1 4 , 8(D9 
DATA S( 1 A , 3(94 , 8<DB , S( 1 8 , 8(FB , 3(00 , 8(8 1 , 8(03 
DATA 3( 1 8 , 3(FD , 3(40 , 3(88 , 3( 1 2 , 8(94 , 8(8B , 3<04 
DATA 3(04 , 3(86 , &9 1 , &2A , 8(AE , 3(78 , 8(C 1 , 8-:9A 
RE 3 TORE : X=8(7SC0 

FOR I=2T0 49: READ VîPOKE X+I,VîNEXT I 

INPUT "Nombre (1-255) : " ; Z 

POKE X , Z : CALL X+2: Z$="Non premier" 

IF FEEK (X+DLET Z$="Premier" 

PRINT Z^: GOTO 80 


BASIC $B a 65 10 + + 


VERSION 1.0 : F.L (1984) 

Utilisation pour SHARP MZ-80B (disquette et 

DlSnrf i° n î Basic permet lutil| sation de 
plusieurs fonctions importantes, fonctions 

absentes dans les BASIC Sharp précédents 

* fré péte S r r tït t,t,VeS P3f fr3ppe de la touch e 
GRj^He^RVS 0 ' enSU,te Slmu l tan ément de 

\cHR r fm touches flèches 

(UHR$ ( ), CHR$ (2), CHR$ (3), CHR$ (4) 

^Z^UTORUN 6 ^ 20 t0UCheS 

PAR EXEMPLE : 

RUN, LIST, CONSOLE C80, DELETE CHR«; 

D " FD ; ; “? CONT, SAVE . WAD . 
LOCK, UNLOCK, CONSOLE C40 GOTn’ 

S0 24 B ânc Tm ' mMAL “ NS0 ° E ’ 

* rr; sjaunes motorisés P ar appui continu 
sur le curseur jaune choisi. 

• accès à des fonctions spéciales : en incor- 

po-ant dans AUTO RUN „„ c à b fc 

programme. n au 


EXEMPLE: 

«JM» efface ,es '«nés 10 à 20 incluses 
une vérification de l'exécution du programme 
en frappant TRON n (0 2 n 2 255) et faisant 

pn rn^itr^u 1 ^ [ écran les numéros désignés 
en cours d execution. 

EXEMPLE : 

TRON 50 permet une vérification assez ranidp 
pour ne pas trop ralentir l'exécution du oro 
gramme. TRON 255 est la vitesse la plus lente 
n peut stopper provisoirement l'exécution du 

,ZT m ZZ n a 7 y 7 sur la touche curseur 

I • leche en bas. Le programme reorenri 

a"app U yamsd r n„a,oncl re , M tar 

ftappTSr de ' a ' 0 "' 0,,TBONse,aite " 

• une possibilité de visualiser les variables exis- 
deTà 7) mém ° ire ' 6n frappant DUMP n < n : 


EXEMPLE: 

“100 c: PRINTCHRS (6) : NEW 

spécfale? ST l l ' 0uverture des séquences 
oerlrJ 693 ement possible de 'a frap- 

pro 9 ,ate a,a "' 

on obtient alors : 

Renumber. osub en ,appant 
EXEMPLE: 

numéro ^00 Ita' ^ ° (renumérotat ' on à partir du 
numéro 1 00 et avec un pas de 1 0). Cette renu 

merotation commence toujours à partir * | a 

Première ligne du programme 

* un effacement des lignes en frappant DEL 


EXEMPLE: 

S 0 /’ t0Utes les varia bles 
DUMP 1 : les fonctions 

DUMP 2 : les strings 

nnyL 3:stringsà1dimension 

mîîp £ ' Strings 3 2 dimens, 'ons 
nnyo « ' var,ab,es numériques 
nnfjp 7 6 : variab,es à 1 dimension 

DUMP 7 .-variables à 2 dimensions. 

technimiM | , uti,lsatlon de programmes 
techniques employant des séquences imnnr 

tantes de POKE et PEEK, il est parfoisTtiîe 
de neutralier l'accès aux fonctions spécia- 
les. Il faut alors utiliser l'ordre NORMAL soit 

d-rectement dans le programme, s oit' par 
frappe directe sur l'écran. P 

IMPORTANT : 

Ce basiç SB-6510 + +, version 2.0 ; F . L per . 
met egalement l'exécution des programmes 
écrits en BASIC C. ' M y nmes 

(voir programme démonstration « MOTEUR 


mSen ü K satioi " des ™ ,si « 

Avec ce Basic SB-6510 + + 

«£ de ' a !,' eL0AD ' nom *P r »9 r amm6 
et RUN, ou directement RUN « nom du D r. 

gramme » pour pouvoir obtenir l'exécution c 
programme choisi. 

L arrêt par BREAK est possible, mais efface I 
programme en mémoire. Il faut recharger lepm 
gramme pour recommencer son exécution 
J n y a pas de possibilité de lister le programme 

au moniteur! 61 ^ ,ndlvidue ^ ement ' ni de passeï 

BaSSin! ! 6S pr ° grammes écrits en 
Basic SB-6510 + +, toutes les fonctions sont 

SAvTyn S r médiatement ' notamm ent LIST 

menthes 61 0n P6Ut exécuter indiff érem- 

BAS C SB ST 68 eC ? S S0US ,es verion « 
DMoii, bB-6510 + + ou BASIC C. 

RA^^ 9ra r eS écrits en BASIC 5510, 
BASIC 5520, BASIC 6510 BASIC ± 

“«.«a BASIC eBioISS;' 
sauf smrfratKinssiJéciateà tes tocs . ^ 
ble précision, ports pour RS 232,.., etc 

MR conventon, , es prosrammes en 

Z c sau,és iMc le i,tre en inve,si » n 

ATTENTION. 

Les programmes en BASIC C ne sont pas exé- 

et 60æ S p P tT 1 f aUtreS baS ' CS des séries 5000 
et 6000 et la fonction LIST fait apparaître les 

mager la disquette. 

Vous pouvez vous procurer ce BASIC, disDo- 

Güirlf^ty 3 1 aimab,e aut °dsation de J P 
^LUCK, utilisateur très actif du MZ80B en 

nous faisant parvenir une disquette formattée 
(bien emballee...) et la somme de 30 F. 



U LOGITHEQUE 


... ou plutôt les Logithèques, car il 
nous faudrait un bulletin complet pour 
vous présenter la liste des logiciels du 
Club, toutes machines confondues. 


Elle est constituée en grande partie de logiciels 
conçus réalisés par les SHARPENTIERS et 
transmis au Club. Les modalités d'accès à la 
logithèque répondent à deux impératifs : 

• Assurer une légitime contrepartie aux con- 
cepteurs de programmes. 

• En faire bénéficier tous les Sharpentiers, 
mêmes débutants en programmation. 

Dans cet esprit, nous avons généralisé la pro- 
cédure appliquée aux MZ et l'avons modifiée 
comme suit : 

1 . Vous nous faites parvenir un ou plusieurs 
programmes dont vous êtes l'auteur, nous vous 
retournons, sous 20 jours maximum un accusé 
de réception accompagné d'un nombre de 


Alors nous avons dû trancher et vous 
proposer notre logithèque par mor- 
ceaux, ou plutôt, par catégorie 
d'appareils. 

Nous commençons par la logithèque 
MZ-80K/A. Dans le prochain numéro : 
tous les programmes pour PC- 1500 
(un gros morceau I). 


points équivalent à la valeur de ce(s) pro- 
gramme(s), de (1 à 5 par programme), vous 
pourrez ensuite nous demander, en une seule 
fois, autant de programmes de la logithèque 
que de points acquis. Vos programmes doivent 
nous parvenir sur cassette, accompagnés 
d'une notice aussi complète que possible. 

2. Vous désirez recevoir des programmes mais 
n'avez pas de points à votre crédit. Faites nous 
parvenir, dans ce cas, une cassette vierge et 
la somme de 1 5 F. par programme demandé, 
nous vous retournerons vos programmes sous 
forme de listing ou sur cassette sous 20 jours 
maximum. Offre limitée à 3 programmes par 
ENVOI. 


PROGRAMMES 

MZ-700 


Parallèlement à la logithèque, nous pouvons 
fournir aux possesseurs de MZ-700 différents 
programmes (jeux, utilitaires, gestion). 

Sur simple demande, nous vous en adressons 
la liste et le tarif correspondant (la liste des logi- 
ciels MZ 700 s'est étoffée d'une dizaine de logi- 
ciels de jeux superbes). 


LOGITHEQUE CLUB SHORP MS 80 KR 


R R O e F! R M M E S DE JE U X 


AH ! LES FEMMES 8 Ko. I K I 5925 □ 5969 fl LM □ * fi □ 5519 □ 59690 □ LM □ 
ALLEZ REJOINDRE L'ELUE DE COTRE COEUR MOIS CE N'EST PAS FACILE. 


AIGUILLAGE 5 Ko. IK ■ 5925 G 5969 ■ LM G * AD 5519 □ 5969A G LM G 

M AMELIORER SAUAMMENT LES AIGUILLAGES POUR EU I TER TOUTE COLLISIONS. 


AKRONA 12 Ko. IK I 5925 G 5969 □ LM fl * A ■ 5519 □ 5969A □ LM ■ 

pas Toujours facile de uider des colonnes Tdeux uersions). 


ALCOOLTEST 3 Ko. I K fl 5925 fl 5969 □ LM G * A □ 5519 □ 5969A □ LM □ 

PAS BESOIN DE SOUFFLER DANS LE MZ DITES SEULEMENT LA MERITE. 


ALDEBARAN ' 22 Ko. IK « 5025 □ 5869 □ LM ■ * A □ 5518 G 5969A G LM G 

BQUCHERjTlSlFt fgS PORTES POUR SAUCER UN MAXIMUM DE S AMANTS. 


ALI EN 8 Ko. I K I 5925 G 5968 □ LM fl * A ■ 5519 □ 5869A □ LM fl 

EMPECHER LES EXTRA-TERRESTRES D'ENUAHIR LA PLANETE TERRE. 


ALI EN FALL 5 Ko. I K fl 5925 □ 5868 □ LM i * A ■ 5518 G 5868A □ LM » 

UNE AUTRE MERS ION D "AKRONA (TRES BIEN EGALEMENT) . 


ALLIGATOR 4 Ko. IK R 5825 II 5868 □ LM G * AO 5519 □ 5868A □ LM □ 

SAUTEZ POUR ATTRAPER DES BANANES MAIS NE TOMBEZ PAS DANS LA FOSSE. 


ALLUMETTES 2 Ko. I K R 5825 ■ 5869 □ LM □ * AG 5518 □ 5868A □ LM O 

NE PRENEZ PAS LA DERNIERE ALLUMETTE. 


ALUHHISSAGE 5 Ko. IK *5825 ■ 5869 □ LM □ * A G 5519 □ 5869A G LM G 

FAITES ATTERRIR COTRE FUSEE SANS DEGAT (BONS GRAPH. ET SGNS>. 


AMBULANCE 7 Ko. I K ■ 5925 □ 5868 ■ LM G * AG 5518 G 5868A G LM G 

PILOTEZ COTRE AMBULANCE SANS AGRACER LE SORT DE COTRE MALADE. 


ANAGRAMME 3 Ko. IK R 5925 G 5868 fl LM G * AG 5518 G 5869A G LM G 

LE MZ TROIJCE ET ECRIT TOUS LES ANAGRAMMES. 


AHDROMEDA GAME 8 Ko. IK fl 5825 G 5969 G LM ■ + AG 5518 G 5969A G LM G 
OH COUS ATTAQUE DU CIEL IL FAUT COUS DEFENDRE DU BAS DE L "‘ECRAN. 


ANTARES 28 Ko. I K R 5925 G 5969 G LM R * A R 5519 G 5869A G LM S 

R L "'INTERIEUR DE L"' AC ION SEULE LA LIGNE DE MIRE COUS AIDE 


ARROWS 6 Ko. IK B 5925 G 5969 G LM R * AG 5518 O 5869A G LM G 

-COUS ET-ES AU CIEL COUS- ATTAQUE DE LA TERRE 


ATLANTIC PATROL 7 Ko. IK ■ 5825 G 5968 R LM G * A G 5518 G 5868A G LM G 
PATROUILLE DANGEREUSE SUR LA MER. ATTENTION AUX TORPILLES. 


ATTACKER 12 Ko. IK R 5825 G 5969 G LM R * AG 5519 G 5869A G LM G 

PROMENADE HAZARDEUSE SUR UN CHAMP DE MINES !!!!. 


AUTO-CROSS 4 Ko. IK R 5825 fl 5968 G LM G * A G 5518 G 5868A G LM G 

TOURNEZ AUTOUR DE L'ECRAN SANS SE RETROUCER DANS LES BOTTES DE PAILLE. 


BATAILLE NACALE 9 Ko. I K R 5925 G 5869 « LM G * A G 5519 G 5869 A G LM G 
COUS JOUEZ EN A6 MZ COUS REPOND A L'EAU!!!. 


B I ORVTHME 3 Ko. IK R 5825 G 5869 R LM G * AG 5518 G 5968A G LM G 

TOUT SUR COTRE FORME DU MOMENT 


BLOCK KUZUSHI 4 Ko. IK ■ 5825 G 5969 G LM fl * A fl 5519 G 5868A G LM R 
JEU DE CASSE-BRIQUES TRES CONNU. 


BOGGLE 5 Ko. IK ■ 5825 G 5869 ■ LM □ * AG 5518 G 5968A G LM G 

JEU DE SOCIETE DEJA CONNU. ŒN TROIS DI MENTIONS). 


BOMBARDEMENT 2 Ko, I K fl 5025 ■ 5868 G LM G * AG 5519 G 5969A G LM G 
ESSAVER DE RASER LA CILLE DANS UN MINIMUM DE TEMPS. 


BOULIER CHINOIS 9 Ko. IK ■ 5925 fl 5869 G LH □ * A G 5518 G 5969A G LM G 
PLUS DE SECRET SUR L'ANCETRE DES CALCULATRICE. 


BOWLING 5 Ko. I K R 5825 G 5869 R LM G * A fl 5518 G 5969A R LM G 

TRES BEAU GRAPH. POUR CE JEU CONNU. 


BREAK-OIJT 8 Ko. I K R 5825 G 5868 fl LM R * A G 5519 G 5968A G LM G 

AUTRE CASSE-BRIQUES MAIS ON PEUT PERCER LE MUR. . . 


BREAK-THROUGH 8 Ko. I K R 5925 G 5869 G LM R * A R 5519 G 5869A G LM R 
AUTRE CARIANTE DE BREAK-OUT TRES REUSSIE AUSSI. 


BRIDGE 7 Ko. I K R 5925 R 5868 G LM G * AG 5519 G 5969A G LM G 

MZ JOUE CONTRE COUS (DIFFICILE DE GAGNER). 


CAMELOT 5 Ko. I K R 5825 R 5869 G LM G * AG 5518 G 5969A G LM G 

UNE TETE APPARAIT AUX DIFFERENTES FENETRES D'UN CHATEAU. TIREZ DEDANS ! i i . 


CAR RACE 4 Ko. IK B 5925 □ 5969 □ LM B + A G 5519 □ 5969A G LM G 

UNE MARIANTE DE HEAD-ON 


CAR RACE SPEZIAL 6 Ko. i K B 5925 G 5969 □ LM fl * A O 5519 D 5969A □ LM □ 
EDITER LES COLLISIONS AUEC D "AUTRES UEHICULES QUI DESCENDENT ... 


CAUERN DEFENDER 15 Ko, 1 K B 5925 O 5969 D LM fl * A fl 5519 □ 5969A G LM ■ 
A L "INTERIEUR D"UN TUNNEL IL FAUT ATTAQUER MAIS AUSSI SE DEFENDRE.. 


CHASSE GASPIS 12 Ko. i K ■ 5925 □ 5960 B LM D * A □ 5519 □ 5969A G LM O 
PARTEZ DE CHEZ UOUS SANS OUBLIER D -'ETEINDRE DOS APPAREILS. 


CHATEAU HANTE 29 ’ Ko. i K B 5925 B 5969 □ LM □ * A □ 5519 D 5969A O LM □ 
JEU DE MEMO IRE. LA PARTIE PEUT DURER PLUSIEURS HEURES. 


CHIFFRES ET LET. 12 Ko. I K B 5925 B 5969 □ LM O * AD 5519 □ 5969 A □ LM □ 
FAUT- IL EN DONNER ?. 


COLDI TZ 16 Ko. I K B 5925 □ 5969 B LM D * AD 5519 □ 5969A □ LM □ 

ESSAVER DE UOUS ECHAPPER DE CETTE PRISON CELEBRE. 


CÜSMOFIGHT 9 Ko. IK fl 5925 O 5969 O LM B * A □ 5519 □ 5969A □ LM □ 

-DETRUISEZ UN- -MAN I MUN DE PETITS METEORITES- AUEC NOTRE LANCE-ROQUETTE 


COUP D"ETAT 39 Ko. IK B 5925 □ 5969 B LM □ * A □ 5519 □ 5860 A D. LM G 

JEU DE STRATEGIE. DES BANDITS SONT DANS LA MILLE. (TRES BEAU GRAFH. > 


COW BOV DUEL 13 Ko. I K B 5925 □ 5969 □ LM fl * A □ 5519 G 5969A G LM G 
COMME AU FAR- WEST SE JOUE fl DEUX ON SE BLESSE ON SE TUE ! ! 1 I 


CRASH 9 Ko. IK B 5925 G 5969 G LM B * A B 5519 G 5969 A G LM B 

ENCORE UNE AUTRE MERS ION DE HEAD-ON 


DALLAS 2 Ko. I K B 5925 B 5969 G LM G * A G 5519 G 5969 A G LM G 

DES COMMENTAIRES PAS TOUJOURS OBLIGEANTS POUR LA FAMILLE EWING. 


DAM. SOLITAIRE 2 Ko. IK B 5925 B 5969 □ LM □ * AG 5519 G 5969A G LM G 
MOUS NE SEREZ JAMAIS SEUL PUISQUE MOUS ETES DEMAHT NOTRE MZ. 


DEFENDER 2 MO ICE 16 Ko. IK B 5925 D 5969 G LM B * A G 5519 G 5969 A G LM G 
SURMOL TRES DANGEREUX D "UNE MONTAGNE AUX NOMBREUX PIEGES. 


DEFENDER*+8 21 Ko. IK B 5925 G 5960 G LM B * AG 5519 G 5969 A G LM G 

UNE AUTRE MARIANTE DE DEFENDER TRES REUSSIE EGALEMENT. 


DESAMORÇAGE 3 Ko. I K B 5925 G 5969 B LM G * AG 5519 G 5969 A G LM G 

LE TEMPS EST COMPTE. IL FAUT FAIRE MITE POUR TROUMER LES BOMBES. 


DIGGER 84 12 Ko. I K B 5925 G 5969 □ LM fl * A fl 5519 G 5969A G LM fl 

EXPLORER TOUTE LA MINE DE CHARBON EH EDITANT LES WAGONNETS EST DUR. 


DONKEY KONG 16 Ko. IK ■ 5925 G 5969 G LM fl * AG 5519 G 5969 A G LM G 

GRIMPER AUX ECHELLES. EDITER LES TONNEAUX. SAUTER DANS L "ASCENSEUR. . . 


DOUBLE WORM 11 Ko. I K ■ 5925 G 5969 G LM B * AG 5519 G 5969 A G LM G 

MANGER UN MAXIMUM DE CASES NUMEROTEES POUR GAGNER CSE JOUE A DEUX;-. 


ELIMINATQR 3 Ko. IK B 5925 G 5969 G LM fl * A G 5519 G 5969A G LM G 

GUERRE DE L "ESPACE. 


EL ISA ~7 7 Ko. IK B 5925 B 5969 G LM G * A G 5519 G 5969A G LM G 

SI MOUS MOULEZ MOUS CONFIER A DOTRE MZ C "EST L "OCCASION OU JAMAIS. 


ESCRIME 7 Ko. IK B 5925 fl 5969 G LM G * A G 5519 G 5969A G LM G 

NE CRAIGNER PAS DE PERCER L "ECRAN. TOUTES COU PRESQUE) LES FIGURES. 


ESPERANCE DE VIE 5 Ko. IK fl 5925 fl 5969 G LM G + À G 5519 G 5969A G LM G 
LA TRISTE REALITE! ! APUREMENT SUBJECTIF). 


FLIEGE 3 Ko. I K B 5925 G 5969 G LM fl + A fl 5519 G 5969A G LM fl 

DIRIGER VOTRE SERPENT DANS UN RECTANGLE C SANS MOUS MORDRE LA QUEUE). 


FORCE. 4 5 Ko. IK B 5925 B 5969 G LM G * A G 5519 G 5969A G LM G 

JEU DE STRATEGIE ET DE REFLEXION. 


FROGGER TRI P 14 Ko. IK fl 5925 G 5969 G LM B * A fl 5519 G 5969 A G LM fl 
LA PAUVRE GRENOUILLE DOIT TRAMERSER LA RUE SANS DOMMAGE POUR ELLE. 


GALACTICAN 14 Ko. I K B 5925 G 5969 G LM A * A G 5519 G 5969A G LM G 

SUPER SPACE INVADER.LE MEILLEUR PGM. DE JEU EN ASSEMBLEUR SUR 89 K. 


GAME OF LIFE 3 Ko. IK B 5925 G 5969 G LM B * A G 55 i 9 G 5969 A G LM G 
REGARDER EVOLUER LES GENERATIONS SUCCESSIMES QUE MOUS AMEZ PROGRAMMEES 


GOLF 29 Ko. IK B 5925 B 5969 G LM G + A fl 5519 G 5969A fl LM G 

CHOISISSEZ MOTRE CLUB. DOSEZ DOTRE EFFORT. ET PAN! DANS LE MAGNETOPHONE. 


GOMOKU MACHINE 4 Ko. IK B 5925 G 5969 G LM B * AG 5519 G 5969 A G LM G 
JEU-DE MORPIONS SUPER RAPIDE ‘Hï - - 


GRAPHIK 5 CM) 2 Ko. I K B 5925 G 5969 G LM fl * A B 5519 G 5969A G LM B 
ABSOLUMENT RIEN A FAIRE ! ! ! TRES BELLE DEMO. DE DESSINS GEOMETRIQUES. 


GRENOUILLE 7 Ko. I K B 5925 B 5969 G LM G * A fl 5519 B 5969 A G LM G 

ATTRAPPER UN MAXIMUM DE MOUCHERONS AUEC LA LANGUE. CAMUSE LES ENFANTS). 


GUILLAUME TELL 4 Ko. IK fl 5925 G 5969 G LM fl * A G 5519 G 5969 A G LM G 
DECOCHER UNE PLUIE DE FLECHE POUR TRANSPERCER POMMES. SERPENT ETC... 


GUN GAME 7 Ko. I K B 5925 G 5969 G LM B * AG 5519 G 5969 A G LM G 

UN AM ION TRAVERSE L "ECRAN . A MOUS DE TIRER DESSUS... 


HANOI 3 Ko. I K B 5925 fl 5969 G LM G * A G 5519 G 5969A G LM G 

JEU DE REFLEXION. DISPOSEZ D "UNE MANIERE DECROISSANTE DES ANNEAUX . 


HAWAII 7 Ko. IK B 5925 B 5969 G LM G * A G 5519 G 5969A G LM G 

ENFIN RIEN A FAIRE! JUSTE A PLEURER SUR LE SORT DE CES DEUX D AC ANC I ERS . 


HEAD-ON 3 Ko. IK fl 5925 G 5969 G LM B * A G 5519 G 5969 A G LM G 

POURSUITE INFERNALE A L "INTERIEUR D"UN LABYRINTHE. 


HELL DI MER 12 Ko. IK ■ 5925 G 5969 G LM B * A G 5519 G 5969 A G LM G 

EMPECHEZ UN CURIEUX ENTONNOIR DE SE REMPLIR. 


I CC-SUPERWURM 7 Ko. I K fl 5925 G 5969 G LM B * A B 5519 G 5969A G LM B 
TOTALISER UN MAXIMUM DE POINTS EN PERCUTANT DES CASES NUMEROTEES. 


JUMPING BALL 3 Ko. IK B 5925 B 5969 G LM G * AG 5519 Q 5969A G LM G 
IL N "Y A QU "UNE PLACE DE LIBRE ET IL FAUT REMETTRE LES PIONS DANS L "ORDRE 


KINGDOM 6 Ko. IK fl 5925 G 5969 ■ LM G * AG 5519 G 5969A G LM G 

MENER A BIEN MOTRE SEPTENAT SUR UNE ILE SINON PAS DE CADEAUX POUR MOUS ! . 


KRIES DER STERNE 6 Ko. IK fl 5925 G 5969 G LM B * A ■ 5519 G 5969A G LM V 
UNE LIGNE DE MIRE AU MILIEU DE L "ECRAN. TIREZ SUR L "ENNEMI... 


KRYPTON 19 Ko. IK ■ 5925 G 5969 G LM B * AG 5519 G 5969A G LM G 

DES METEORITES S "ABATTENT SUR MOUS. IL FAUT SE DEFENDRE. 


LABYRINTHE 5 Ko. IK B 5925 B 5969 G LM G * AG 5519 G 5969 A G LM G 

ESSAYER DE TROUMER LA SORTIE DANS CE LABYRINTHE A TROIS DIMENSIONS. 


LUNAR TRANSPORT 3 Ko. IK B 5925 G 5960 G LM ■ * AG 5519 G 5969A G LM G 
TRANSPORTER DES HOMMES SUR LA LUNE N "EST PAS UNE MINCE AFFAIRE.. 


M-CHECKER 39 Ko. IK B 5925 G 5969 G LM fl * A G 5519 G 5969A G LM G 

JEU DE DAMES MAIS REGLE DU JEU A L "ANGLAISE. 


MANEGE INFERNAL 7 Ko. IK B 5925 G 5969 G LM fl * A B 5519 G 5969A G LM B 
MOUS ETES AU MILIEU D"UN MANEGE ET IL FAUT TIRER SUR LES PETITS CHEUAUX. 


MASTERMIND 3 Ko. IK B 5925 B 5969 G LM G * A G 5519 G 5969 A G LM G 

CE N "EST PAS EN COULEURS MAIS LE PRINCIPE RESTE LE MEME. 


MISSILE COMMAND 13 Ko. IK B 5925 G 5969 G LM B * A ■ 5519 G 5969 A G LM B 
UNE D. C. A. EN MINIATURE C HEUREUSEMENT !!!!). 


MONOPOLY 14. Ko. IK B 5925 fl 5969 G LM G + A G 5519 G 5969A G LM G 

EXACTEMENT COMME LE MRAI MAIS SANS QRAPH. 


MORSE 2 Ko. I K fl 5925 B 5969 G LM G * AG 5519 G 5969A G LM G 

POUR APPRENDRE CE CODE; PAS DE PROBLEME. 


MOSAÏQUE 4 Ko. IK B 5925 B 5969 G LM G * AG 5519 G 5969 A G LM G 

-RECONSTITUEZ UN DESSIN VU- AU DEPART. TRES BIEN POUR LES— ENFANT S 


MUNCHIES 7 Ko. IK B 5925 G 5969 G LM B * A B 5519 G 5969A G LM B 

UN TRES BEAU P ACM AN. 


OIL FIELD 16 Ko. I K B 5925 G 5960 G LM B + A fl 5519 G 5969A G LM B 

ATTENTION AUX DIFFERENTS PIEGES DANS CE CHAMPS BIZARRE 

PAC-MAN IM 7 Ko. I K B 5925 G 5969 G LM B * A G 5519 G 5969 A G LM G 

PLUSIEURS VITESSES POUR CE PACMAN. 


PATROL ALPHA 12 Ko. I K B 5925 G 5969 G LM B * A B 5519 G 5969 A G LM B 

LA CONDUITE DE CE TANK EST DELICATE SUR UN TERRAIN TRES ACCIDENTE. 


PC6 WARP I 14 Ko. I K B 5925 G 5969 G LM B * A G 5519 G 5969A G LM G 

ABATTEZ L "ENNEMI AUEC DEUX TIRS SIMULTANES. 


PENDU 3 Ko. I K B 5925 B 5969 G LM O * A fl 5519 ■ 5969 A G LM G 

SANS COMMENTAIRE POUR CE JEU CONNU; SI CE N "EST .QU "IL PLAIT AUX ENFANTS. 


PHENIX 16 Ko. IK B 5925 G 5969 G LM B * A B 5519 G 5969A G LM B 

L "ENNEMI VIENT DU CIEL .A UOUS DE UOUS DEFENDRE. 


PINS-PONG 8 Ko. IK ■ 5925 G 5969 G LM M * AG 5519 G 5969A G LM G 

L "ECRAN DU MZ DEUIENT UNE TABLE IL N "Y A PAS DE FILET. CSE JOUE A DEUX). 


POINTGET 6 Ko. IK B 5925 G 5960 G LM B * A G 5519 G 5969A G LM G 

POURSUITE DANS UNE GRILLE (GENRE DE PACMAN). 


POKER STR IP 4 Ko. IK fl 5925 G 5969 B LM G * AG 5519 G 5969 A G LM G 

UOUS VERREZ DES CARTES ET AUSSI (CLASSE X). 


POULE & RENARD 5 Ko. IK B 5925 B 5969 G LM G * A G 5519 G 5969 A G LM G 
SUR UN DAMIER NE UOUS FAITES PAS CROQUER PAR CE RENARD. 


PUCKMAN 16 18 Ko. IK B 5025 G 5969 G LM fl * A G 5519 G 5969A G LM G 

SUPER PACMAN. PLUSIEURS JOUEURS PEUUENT S'INSCRIRE. 


PUCKMEN VOICE 13 Ko. IK B 5925 G 5969 G LM fl * A G 5519 G 5969A G LM G 
UN AUTRE PACMAN ET EN PLUS ON UOUS PARLE ...EN ALLEMAND. 


PUISSANCE 4 6 Ko. I K fl 5925 B 5969 G LM G * A G 5519 G 5969A G LM G 

JEU DE SOCIETE CONNU. SE JOUE A DEUX. 


QUADRI LETTRE 2 Ko. IK B 5925 G 5969 B LM G * A G 5519 G 5069A G LM G 
REMETTEZ UN ENSEMBLE DE QUATRE LETTRES DANS L "ORDRE. (PAS EVIDENT!!) 


RALLEY FOR 2 8 Ko. IK B 5925 G 5969 G LM B * A G 5519 G 5969A G LM G 

CAR RACE A DEUX JOUEURS SUR LE MEME TERRAIN. 


RALLEY X il Ko. IK ■ 5925 G 5969 G LM B * AG 5519 G 5969A G LM G 

CIRCULATION EMBOUTEILLEE DANS UN LABYRINTHE VISUALISE A L "ECRAN. 


RAUM-SLALOM S Ko. I K B 5925 G 5969 G LM ■ * A G 5519 G 5969 A G LM G 

TRAVERSEZ DES CHICANES TOUT EN VOUS PRESERVANT DE L'ENNEMI. 


RED ALERT VOL II 8 Ko. IK B 5925 G 5969 G LM B * A B 5519 G 5969A G LM B 
DES GROS ENGINS FONDENT SUR VOUS. IL FAUT LES DETRUIRE A TOUT PRIX. 


RETOURNE 6 Ko. I K ■ 5925 G 5969 B LM G * AG 5519 G 5969A G LM G 

EXCELLENT POUR TESTER VOTRE MEMOIRE VISUELLE. (CARTES RETOURNEES). 


REVERS I 4 Ko. IK fl 5925 G 5969 G LM ■ * A G 5519 G 5969 A G LM G 

ENCORE UN OTHELLO. 


ROBOFIGHT 15 Ko. I K fl 5925 G 5969 G LM B * A fl 5519 G 5969 A G LM B 

-MOUS ETES SANS CESSE ATTAQUER DANS UN DEDALE. 


ROULETTE 4 Ko. I K ■ 5925 B 5969 G LM G * A G 5519 G 5969A G LM G 

LES ROUGES! ÎLES NOIRS 1 ! IL NE MANQUE PLUS QUE L'ODEUR DES CIGARES. 


RUBICUBE 6 Ko. I K B 5925 A 5969 G LM G * A Q 5519 G 5969A G LM G 

TOURNEZ RETOURNEZ LE CUBE ET PEUT-ETRE VOUS GAGNEREZ. 


RUN OUT 6 Ko. I K B 5025 D 5060 □ LH ■ * fl B 5519 D 50600 □ LM ■ 

ALLEZ PERCUTER LES TETES DE MONSTRES EN Hflü,T DE L'ECRAN. 

SflRGOM 2.5 +BELL 19 Ko. I K B 5025 □ 5060 □ LM fl * fl □ 5510 D 5060 A □ LM □ 

TRES BON JEU D "ECHEC . 

SCRAMBLE 3 Ko. I K fl 5025 O 5060 □ LM fl * A fl 5518 D 5060A □ LM fl 

NAUIGUER EH TOUS SENS UQTRE UfllSSEflU POUR REUSSIR Lfl MISSION. 

SCRflMBLER l Ko. I K fl 5025 □ 5060 D LM ‘B * fl B 5510 D 5960A □ LM ■ 

IDEM fl SCRAMBLE MAIS L 'ENSEMBLE EST BEAUCOUP PLUS GROS. 

SKV CHIP i Ko. IK B 5025 □ 5060 □ LM fl * A □ 5510 □ 5060A □ LM □ 

L -ENNEMI EST EH BAS DE L -ECRAN. MOUS ATTAQUER D -EH HAUT. <Cfl CHANGE... ). 

SOS I SL AND 14 Ko. I K 1 5025 □ 5060 □ LM fl * AD 5510 □ 50600 □ LM D 

UQIJS ETES SUR UNE PLATEFORME PETROLIFERE ET L "AUENTURE COMMENCE. 

SPOCE GUERILLA 16 Ko. I K ■ 5025 □ 5060 □ LM fl * A ■ 5510 □ 5060A □ LM fl 

DES EXTRA-TERRESTRES ESSAIENT DE UOLER UQTRE BIEN. IL FOUT INTERVENIR. 

SP ACE INUADER 10 Ko. I K ■ 5025 □ 5060 □ LM B * fl • 5510 □ 5060 A □ LM B 
L'UN DES PLUS PIEUX JEU D -ARCADES SUR LES MZ. 

SPACE INUADER II 3 Ko. I K ■ 5025 □ 5060 □ LM ■ * A □ 5510 D 5060A □ LM □ 
PARIANTE AMUSANTE DE L "ANCETRE ! ! ! ■ 

SPOCE PAN IC 21 Ko. I K fl 5025 D 506© D LM fl * A fl 5518 D 5060 A D LM fl 

FAITES TOMBER DES U I LAI NS MONSTRES DANS DES TROUS CREUSES PAR MOUS.. 

SPE I CHER-ORGEL i Ko. I K ■ 5025 0 5060 □ LM » * fl □ 5510 Q 50600 D LM □ 

TOUT SUR LO MUSIQUE. JOUER ENREGISTRER RECHARGER. . ENFIN TOUT!. 

SPIDER INUASION 10 Ko. I K fl 5025 □ 5060 a LM B * A B 5510 D 50600 □ LM B 
L -ENNEMI ATTAQUE EN RANGEE DE PLUS EN PLUS PRESSANTE. ATTENTION! ! ! . 

SQUASH 5 Ko. I K ■ 5025 O 5060 □ LM fl * 0 ■ 5510 D 5060A □ LM fl 

TRES BON ENTRAINEMENT POUR BLOCK KUZUSHI BREOK-OUT ETC ETC 

STAR DESTROYER 12 Ko. I K fl 5025 □ 5060 □ LM fl * A D 5510 P 50600 D LM □ 
UQUS PILOTEZ UN OU ION ET UOUS ETES JUSTE DERRIERE LA LIGNE DE MIRE. 

STAR F IRE 15 Ko. I K ■ 5025 □ 5060 □ LM fl * A «5510 □ 58680 □ LM ■ 

RESSEMBLE PAR LE COTE LIGNE DE MIRE A STAR DESTROYER. 

SUPER DEFENDER 19 Ko. I K fl 5025 D 5060 0 LM • * 0 fl 5510 □ 50600 □ LM ■ 

0 MOINS PIETRE UN SPECIALISTE UQTRE AU ION EST UITE DETRUIT. 

SUPER ELECTIONS 32 Ko. IK B 5025 B 5060 O LM □ * A D 5510 □ 50600 □ LM □ 
UQIJS ETES EH ANGLETERRE ET IL FOUT FAIRE EL IR UQTRE PARTI. < DUR DUR!!) 

SUPER HEROS 9 Ko. I K fl 5025 fl 5060 □ LM 0 * 0 0 5510 D 5060 A O LM □ 

L -ANCETRE DES JEUN BASIC. LE POSSEDER MAINTENANT EST UNE UALEUR SURE!!. 

SUPER l.iJIJRM 7 Ko. I K ■ 5025 □ 5060 □ LM fl * A ■ 5510 0 5060A O LM B 

ALI DEBUT LO QUEUE DU SERPENT EST COURTE MAIS UOILO ELLE S -'ALLONGE ! . 

SUPER-ANALÛGUHR 9 Ko. IK fl 5025 D 5060 O LM fl * A D 5510 □ 5060A □ LM □ 
IL SUFF-I-T DE METTRE CETTE PENDULE A AIGUILLES A L -'HEURE- 

SUPERH IRN AKTIU 15 Ko. I K fl 5025 D 5060 0 LM B * fl □ 5510 □ 5060 A □ LM □ 

T ROUUEZ UN NOMBRE SECRET SOUS LE PRINCIPE DU MOSTERMI ND. PARFOIS DUR!! 

TAPEWORM 13 Ko. I K fl 5025 D 5060 0 LM § * A 1 5510 □ 50600 □ LM B 

UN SERPENT SE PROMENE SI UQUS TIREZ DEDANS IL SE COUPE EN DEUX. 

TELECRAH 3 Ko. IK B 5025 D 5060 D LM fl * A D 5510 □ 506ÛO D LM □ 

PRESQUE TOUS LES DESSINS POSSIBLE SUR L "ECRAN. BIEN POUR LES ENFANTS. 

TOUR INFERNAL 12 Ko. IK fl 5025 D 5060 .D LM fl * AO 5510 D 50600 □ LM □ 
UQUS ETES OU MILIEU D 'UNE TOUR EN FEU !UOUS SAUUER OU MOURIR !. 

TURTLE GAME 10 Ko. IK « 5025 D 5060 D LM • * A 0 5510 □ 5060A □ LM D 

SAUTER DE PIERRE EN PIERRE OU MILIEU DE LA RIUIERE ATTENTION fl LO CHUTE. 

U-BOOTJAGD 6 Ko. IK « 5025 D 5060 □ LM fl * A □ 5510 □ 50600 □ LM □ 

UQUS PILOTEZ UN BATEAU LANCE-TORPILLES..... 

U I DEO-FL I PPER 10 Ko. IK ■ 5025 □ 5060 D LM • # A D 5510 D 5060A D LM □ 

PEUT-ETRE UNE PARTIE GRATUITE SUR CE FLIPPER. MAIS PAS DE TILT!!. 

UIER-GEWINNT 7 Ko. IK B 5025 0 5060 □ LM ■ + A D 5510 0 5060A D LM □ 
MORPION QUI SE JOUE A L 'HONRIZQNTAL. 

UIERGE 7 Ko. IK ■ 5025 ■ 5060 □ LM □ * A □ 5510 □ 5060A □ LM □ 

IL FAUT QUE UQUS POSSEDIEZ UNE IMPRIMANTE POUR ADMIRER CETTE UIERGE. 

WURM i Ko. I K ■ 5025 □ 5060 0 LM ■ * A ■ 5510 □ 50600 □ LM ■ 

UOUS DIRIGEZ UN SERPENT DANS TOUS LES SENS ET ENGRANGEZ DES POINTS. 


I — OG I THEQUE 


PROGRAMMES 


5HORP MZ S® K-l 


UT ILI TA I RE 


•OPIE TOUT 2 Ko. Il li 

DUPLIQUE RAPIDEMENT 0 PARTIR 


6®$5 B 5060 □ LM 0 * A □ 5510 □ 5Q60A D LM □ 
: D'UNE DISQUETTE UNE AUTRE DISQUETTE. 


COPV K7 1 Ko. I K fl 5025 0 5060 D LM fl + A D 5510 □ 5060 A □ LM D 

DUPLIQUE fl PARTIR D'UNE CASSETTE UNE AUTRE CASSETTE EN L.M. 

COPV SINGLE 4 Ko. I K » 5025 0 5060 □ LM « * fl □ 5510 D 50600 D LM D 

TOUTE LES POSSIBILITES DE TROUA ILLER LES CASSETTES. 

CREGEFI CAS. 16 Ko. I K B 5025 D 5060 fl LM D * AD 5510 □ 50600 D LM 0 
SUPER FICHIER PARAMETRABLE (CASSETTE). 

CREGEFI DISK. 3 Ko. I K fl *9$5 0 5060 □ LM G * AG 5510 □ 5060A D LM D 
SUPER FICHIER PARAMETRABLE DISQUETTE) . 


DESASS. EDIT. 6 Ko. IK B 5025 B 5060 □ LM □ + A □ 5510 □ 
L'EDITEUR EN PLUS 

DESASSEMBLEUR 15 Ko. IK g 5025 B 5060 □ LM 0 + A □ 5510 □ 
COMME SON NOM L'INDIQUE. 

DIJMP DISK 6015 i Ko. I K ■ 60f5 □ 5060 □ LM □ * fl □ 5510 □ 
UOUS POURREZ EXPLORER UPS DISQUETTES. 

PRIHTER-DUMP 0.5 Ko. IK B 5025 B 5060 D LM □ * AD 5510 □ 
SI UOUS POSSEDEZ UNE IMPRIMANTE. 

SPONTEX i Ko. I K B 5025 □ 5060 □ LM B * AD 5510 □ 

TRAITEMENT DE TEXTE i POUR L'INSTANT SANS NOTICE). 

SUPER BASIC 2 iÔ Ko. I K B 5025 □ 5060 □ LM fl + A D 5510 □ 
QUI NE LE POSSEDE PAS ? ■ SUPER SUPER BASIC flUEC NOTICE. 

SUPER MONITEUR 4 Ko. I K B 5025 g 5060 □ LM □ * AD 5510 D 
UTILITAIRE D'AIDE A LA PROGRAMMATION. 


5S60A □ LM □ 


50600 □ LM □ 


50600 □ LM □ 


5060A □ LM □ 


50600 □ LM □ 


5060A □ LM □ 


5060A D LM □ 


LOG I THEQUE 


PROGRAMMES 


ï=:e K R 


ENSE X GNEMENT 


2C0NDSER I E 1 CONNU 0.5 Ko. IK B 5025 B 506© 0 LM □ * 0 B 551© B 5060A □ LM □ 
CALCUL DE CONDENSATEUR DANS UN CIRCUIT. 

2RES I ST . ■•'V’ 1 CONNU 0.5 Ko. IK B 5025 B 5060 0 LM □ * A B 5510 B 50600 D LM D 
CALCUL DE RESISTANCE DONS UN CIRCUIT., 

ANGLAIS- ALLEMAND 13 Ko. IK | 5025 g 5068 0 LM 0 * A D 5510 O 5060A □ LM □ 
MINI-DICTIONNAIRE. 

ARITHMETIQ. 19 Ko. IK D 5025 D 5860 D LM □ * A B 5510 B 5060 A D LM D 

LES QUATRE OPERATIONS AU PROGRAMME. ■:! POUR ENFANTS). 

BASIC TUTO. 23 Ko. IK D 5025 D 5060 D LM D * fl B 5510 B 5060A D LM D 

INITIATION fl LA PROGRAMMATION BASIC. 

CALC POT FERRITE 1 Ko. IK B 5825 B 5068 D LM D * A D 5518 D 50690 D LM D 
CALCULER UQS POTS FERRITE. - 

CONDENSAT SERIE ï Ko. I K ■ 5025 B 5868 D LM □ * A D 5519 dIuSOA D LM D 
CALCUL D'UN CONDENSATEUR DANS UN CIRCUIT SERIE. 

CONJUGAISON 14 Ko. I K B 5925 D 5860 B LM □ * 0 D 5510 D~5960A~ dTm~1T 

ENTREZ UN UERBE ET UQTRE MZ LE CONJUGUERA fl PLUSIEURS TEMPS. 

CONU. ALGEBRI . 6 Ko. IK B 5025 B 5860 D LM □ * fl D 5519 D 50690 D LM D 

PROGRAMME DE CQNUERSION ALGEBRIQUES. 

E. fl. 0. BETON Ü Ko. IK B 5925 D 5868 B LM D * A D 5510 D 5060A D LM D 
TRES BON PROGRAMME POUR S -INITIER A Lfl CONFECTION DU BETON. 

FRANCE 15 Ko. I K B 5025 D 5068 B LM D * 0 B 5518 D 50600 B LM D 

APPRENEZ LES REGIONS LES DEPARTEMENTS LES PREFECTURES. 

GENEDIU. : 3 Ko. IK B 5925 B 5968 D LM □ * A D 5510 D 5868A D LM D 

IMPRIMANTE NECCESSA IRE. IMPRIME SUR PAPIER DES DIUISIOHSCPOUR ENFANTS). 

GEOGRAPHIE 16 Ko. IK B 5825 B 5868 D LM D * fl B 5518 B 5Q68A D LM D 

QUESTIONS SUR LA GEOGRAPHIE MONDIALE. 


INTEGRALE 2 Ko. IK B 5925 B 5868 D LM D * AD 5518 D 5968 A D LM D 

CALCUL DES INTEGRALES. 

LATIN 4 Ko. IK B 5925 B 5860 D LM D * A B 5518 I 

-INITIATION AU LAI I H < DEÇU NA I SONS) . 


5068A D LM D 


MULTIPLICATION 2 Ko. IK Bl 5925 B 5968 D LM □ + A D 5518 D 5969 A D LM D 
APPRENEZ LES MULTIPLICATIONS A UQTRE ENFANT. 

ORTHOGRAPHE 5 Ko. IK B 5925 D 5968 B LM D + A D 5518 D 5969 A D LM D 

APPRENEZ L --ORTHOGRAPHE A UQTRE ENFANT. 

PROBABILITES 29 Ko. I K B 5825 0 5868 B LM D * A B 5519 D 5969A B LM D 
TRES BON PROGRAMME AUEC DES GRflPH. A L "APPUI ■ >■ CLASSE TERMINALE). 

R.L.C i Ko. IK B 5925 fl 5968 D LM D + A B 5518 B 5868 A D LM D 

CALCULEZ UN CIRCUIT RESONNANT. 

RECITATION 13 Ko. I K fl 5825 D 5868 B LM D * A D 5518 D 5068A D LM Q 

PERMET A L'ENFANT D'APPRENDRE UN TEXTE . 


RESISTANCES ✓✓ 1 Ko. I K B 5925 fl 5969 D LM D + A B 5519 B 5968 A D LM D 

CALCUL DE RESISTANCES DANS UN CIRCUIT PARALLELE. 

RESOLUTION 123° i Ko. IK B 5825 • 5868 D LM D * AD 5510 D 5969A D LM D 
CALCUL DES EQUATIONS fl UNE DEUX TROIS INCONNUES. 

RESOLUTION 3EQ 2 Ko. IK B 5925 B 5868 D LM D + A D 5518 D 5969 A D LM D 
CALCUL DES EQUATIONS fl 3 INCONNUES. 

SI MU. HP. U Ko. IK D 5825 D 5968 D LM D + A B 5510 B 5968 A D LM D 

TRANSFORMEZ UQTRE MZ EN CALCULATRICE < NOTAT ION POLONAISE INUERSEE). 

STAT. 3 Ko. IK B 5025 B 5860 0 LM D * fl D 5510 D 5969 A D LM D 

SURFACE 0.5 Ko. IK • 5025 B 5960 D LM D * A D 5519 D 5969 A D LM D 

LES SURFACES DES CARRES RECTANGLES ETC... 

THE TEACHER 13 Ko. I K B 5925 B 5860 D LM D * A D 5519 D 5960A D LM □ 

INITIATION A L'ANGLAIS. 


U dUB DES 


POURQUOI? 

Le monde de la micro-informatique évolue à une vitesse prodigieuse. Cela 
nécessite, pour le possesseur d'un micro-ordinateur, de se tenir cons- 
tamment informé de toute évolution ou création, tant matérielle que logi- 
cielle réalisée autour de sa machine. Cette nouvelle forme de « service 
après vente », c'est l'objectif n° 1 du CLUB DES SHARPENTIERS. 
Né en 1980 du désir de quelques passionnés de partager leurs connais- 
sances, le club a acquis, en quelques années, une solide expérience en 
ce domaine. 

Cette expérience, l'inconstestable succès rencontré - actuellement + 
de 7 000 Sharpentiers -, la qualité et la diversité des services propo- 
sés font du CLUB DES SHARPENTIERS, une organisation actuelle- 
ment unique en France. 

QUELS AVANTAGES ? 

Etre SHARPENTIER, c'est d'abord adhérer à la philosophie du CLUB DES 
SHARPENTIERS qui, au-delà de toute considération commerciale, a 
pour seule tâche de favoriser la communication entre possesseurs de 
micro-ordinateurs SHARP. 

Cette communication, c'est d'abôrd le bulletin du club, bimestriel, qui 
vous fournit les informations concernant votre machine (applications, 
nouveautés, programmes), la vie du club et de la Société SHARP. 


La vie du club, c'est aussi une permanence hebdomadaire le mercredi 
dans les locaux de SHARP à Aubervilliers où les Sharpentiers peuvent 
se réunir et travailler dans un « local club ». 

Par ailleurs, le club propose une assistance permanente, téléphoni- 
que ou postale, des membres du club qui mettront tout au œuvre pour 
résoudre votre problème ; l'accès à la plus importante bibliothèque de 
programmes ; un échange constant d'idées permettant à chacun de 
profiter du savoir de tous, et à tous, de l'acquis de chacun. 

Le club étant parrainé par la Société S.B.M., il convient d'ajouter à cette 
liste, la possibilité d'obtenir certains produits SHARP à des prix très inté- 
ressants (affaires club) et de pouvoir participer à des concours club dont 
les prix sont de grande valeur (1 semaine au japon au vainqueur 1985 
de notre concours de DAMES). 


POUR DEVENIR SHARPENTIER... 

Remplissez le bulletin d'inscription ci-joint et retournez le au : 
Club des Sharpentiers 
151/153, avenue Jean-Jaurès 
93307 AUBERVILLIERS CEDEX 
Tél : 834.93.44 


BULLETIN D'INSCRIPTION AU CLUB DES SHARPENTIERS 

□ Je m'inscris NOM PRÉNOM 

□ Je me réinscris 

au CLUB DES SHARPENTIERS ADRESSE 


Je bénéficie de tous les 
avantages du CLUB 

Je suis abonné pour 1 AN 
au BULLETIN du CLUB 

Je vous joins mon règlement 

□ FRANCE: 160 F 

□ ETRANGER : 200 F 

CHEQUE N° BANQUE 

DATE SIGNATURE 


CODE POSTAL / VILLE 


PAYS 

PROFESSION ÂGE ... . 

MACHINE POSSÉDÉE DEPUIS 

ACHETÉE CHEZ 


UTILISATION PRINCIPALE DE VOTRE MACHINE 



